Нужна программа для паскаля - реверс массива.

Var
 mas:array[1..1000] of integer;
 N, i, c:integer;

begin
  readln(N);
  for i:=1 to N do
   readln(mas[i]);
  for i:=1 to (N div 2) do
  begin
   c:=mas[i];
   mas[i]:=mas[N-i+1];
   mas[N-i+1]:=c;
  end;
  for i:=1 to N do
   write(mas[i],' ');
end.