Вывести элементы одномерного массива в обратном порядке с использованием рекурсии — Pascal(Паскаль)

uses crt;
type Tmass=array[1..20]of integer;
var a:Tmass;n,i:integer;
procedure Revers(i,j:integer);
var buf:integer;
begin
buf:=a[i];
a[i]:=a[j];
a[j]:=buf;
inc(i);
dec(j);
if i<j then Revers(i,j);
end;
begin
clrscr;
write('n=');readln(n);
writeln('Ishod massiv');
for i:=1 to n do
  begin
   a[i]:=i;
   write(a[i],' ');
 end;
writeln;
writeln('Obratn massiv');
Revers(1,n);
for i:=1 to n  do
   write(a[i],' ');
readln;
end.

uses crt;
type Tmass=array[1..20]of integer;
var a:Tmass;n,i:integer;
procedure Revers(k:integer;a:Tmass);
begin
write(a[k],' ');
if k>1 then Revers(k-1,a);
end;
begin
clrscr;
write('n=');readln(n);
writeln('Ishod massiv');
for i:=1 to n do
  begin
   a[i]:=i;
   write(a[i],' ');
 end;
writeln;
writeln('Obratn massiv');
Revers(n,a);
readln;
end.