Janilabo | TSABubbleSort() [Simba]

procedure TSABubbleSort(var TSA: TStringArray; order: (so_LowToHigh, so_HighToLow));
var
  a, b, h: Integer;
  tmp: string;
begin
  h := High(TSA);
  if (h > 0) then
  case order of
    so_LowToHigh:
    for a := 0 to h do
      for b := 1 to (h - a) do
        if (TSA[(b - 1)] > TSA[b]) then
        begin
          tmp := TSA[(b - 1)];
          TSA[(b - 1)] := TSA[b];
          TSA[b] := tmp;
        end;
    so_HighToLow:
    for a := 0 to h do
      for b := 1 to (h - a) do
        if (TSA[(b - 1)] < TSA[b]) then
        begin
          tmp := TSA[(b - 1)];
          TSA[(b - 1)] := TSA[b];
          TSA[b] := tmp;
        end;
  end;
end;

var
  TSA: TStringArray;

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