Janilabo | TSAReverse() [SCAR Divi]

{==============================================================================]
  Explanation: Reverses TSA.
[==============================================================================}
procedure TSAReverse(var TSA: TStrArray);
var
  g, i, l: Integer;
begin
  l := (Length(TSA) - 1);
  if (l < 1) then
    Exit;
  g := (l div 2);
  for i := 0 to g do
    Swap(TSA[i], TSA[(l - i)]);
end;

var
  a, b, c, tmp: TStrArray;
  h, i: Integer;

begin
  ClearDebug;
  tmp := ['Test4', 'Test3', 'Test2', 'Test1', 'Test0'];
  TSAReverse(tmp);
  h := High(tmp);
  for i := 0 to h do
    WriteLn(tmp[i]);
end.