в чем ошибка?

[MKS23]

Для данного числа N и N элементов последовательности, введенных пользователем ,выведите эти элементы в обратном порядке.

Program qq;
uses crt;
var a:array [1..10000] of  integer;
i,j,z,N: integer;
begin
clrscr;
readln(N);
Write (’zapolnite massiv’);
For i:=1 to N do begin 
Readln(j);
a[i]:=j;
end;
if (N mod 2) = 0 then begin
z:=a[1];
a[1]:=a[N];
a[N]:=z;
for i:=1 to (N div 2)-1 do begin
z:=a[i+1];
a[i+1]:=a[N-i];
a[N-i]:=z;
end;
end
else for i:=0 to (N div 2) do begin
z:=a [i+1];
a[i+1]:=a[N-1];
a[N-1]:=z;
end;
for i:=1 to N do 
write (a[i],’ ’);
end.

[BDA]

в чем ошибка?

В подходе.

uses
  crt;

var
  n: integer;

procedure reverseread(i: integer);
var
  a: integer;
begin
  if i = 0 then exit;
  read(a);
  reverseread(i - 1);
  write(a, ' ');
end;

begin
  read(n);
  reverseread(n);
  readln;
end.