Как перевернуть массив в pascal?

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12

var mas1: array[1..10] of integer; // исходный массив
    mas2: array[1..10] of integer; // перевернутый массив
    i: integer;
begin
  for i:= 10 downto 1 do
    begin
       mas2[10-i+1]:= mas1[i];
    end;   

  for i:= 1 to 10 do
     writeln(mas2[i]);
end;

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20

var
  arr: array[1..5] of Integer;
  i, temp: Integer;
begin
  arr[1] := 1;
  arr[2] := 2;
  arr[3] := 4;
  arr[4] := 3;
  arr[5] := 5;
  
  for i := 1 to (Length(arr) div 2) do begin
    temp := arr[i];
    arr[i] := arr[Length(arr)-i+1];
    arr[Length(arr)-i+1] := temp;
  end;
  
  for i := 1 to Length(arr) do begin
    WriteLn(arr[i]);
  end;
end.

1
2
3
4
5

5
3
4
2
1