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

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.