Дан одномерный массив целых чисел. Изменить порядок расположения всех элементов на противоположный — Pascal(Паскаль)

uses crt;
var m:array[1..100]of integer;
i,N,b:integer;
 
begin
 clrscr;
 write('N -> ');
 readln(n);
 write('Введите массив -> ');
 for i:=1 to N do read(m[i]);
 readln;
 for i:=1 to N div 2 do
 begin
  b:=m[i];
  m[i]:=m[N-i+1];
  m[N-i+1]:=b;
 end;
 writeln;
 for i:=1 to N do write(m[i],' ');
 readln;
end.