Janilabo | TSAJnlbSortDnmc() [Simba]

procedure TSAJnlbSortDnmc(var TSA: TStringArray; order: (so_LowToHigh, so_HighToLow));
var
  a, b, x, i, l, s: Integer;
  tmp: string;
begin
  l := Length(TSA);
  if (l > 1) then
  begin
    s := ((l - 1) div 2);
    case order of
      so_LowToHigh:
      for i := 0 to s do
      begin
        a := i;
        b := ((l - 1) - i);
        if (TSA[b] < TSA[a]) then
        begin
          tmp := TSA[b];
          TSA[b] := TSA[a];
          TSA[a] := tmp;
        end;
        for x := (a + 1) to (b - 1) do
          if (TSA[x] < TSA[a]) then
          begin
            tmp := TSA[x];
            TSA[x] := TSA[a];
            TSA[a] := tmp;
          end else
            if (TSA[x] > TSA[b]) then
            begin
              tmp := TSA[x];
              TSA[x] := TSA[b];
              TSA[b] := tmp;
            end;
      end;
      so_HighToLow:
      for i := 0 to s do
      begin
        a := i;
        b := ((l - 1) - i);
        if (TSA[a] < TSA[b]) then
        begin
          tmp := TSA[a];
          TSA[a] := TSA[b];
          TSA[b] := tmp;
        end;
        for x := (a + 1) to (b - 1) do
          if (TSA[x] > TSA[a]) then
          begin
            tmp := TSA[x];
            TSA[x] := TSA[a];
            TSA[a] := tmp;
          end else
            if (TSA[x] < TSA[b]) then
            begin
              tmp := TSA[x];
              TSA[x] := TSA[b];
              TSA[b] := tmp;
            end;
      end;
    end;
  end;
end;

var
  TSA: TStringArray;

begin
  TSA := ['Apple', 'Orange', 'Lemon', 'Banana', 'Pear'];
  TSAJnlbSortDnmc(TSA, so_HighToLow); // Reversed.
  WriteLn(ToStr(TSA));
  TSAJnlbSortDnmc(TSA, so_LowToHigh); // Default.
  WriteLn(ToStr(TSA));
end.