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

program rekurs;
uses crt;
var
a:array[1..1000] of integer;
k:integer;
i:integer;
 
procedure vivod;
begin
 if k>0 then
 begin
  writeln('Chislo #',k,'=',a[k]);
  k:=k-1;
  vivod;
 end;
end;
 
procedure vvod;
begin
 write('Vvedite chislo #',i,' ');
 readln(a[i]);
 if a[i]<>0 then
 begin
  i:=i+1;
  vvod;
 end
 else
  begin
   k:=i-1;
   vivod;
  end;
end;
 
begin
 i:=1;
 clrscr;
 vvod;
 readln;
end.