Считывать данные с клавиатуры, пока не будет введен 0

program Recurs; 
procedure RecVvod;
var c: integer;
begin 
  readln(c);
  if c<>0 then RecVvod;
  writeln(c);
end;
begin 
 writeln('Vvedite celie chisla. priznak konca vvoda  0. ');
 RecVvod;
end.

program qwerty; {Imya programmi}
uses crt;  {podklu4enie modulya CRT}
const
     n=4; {konstanta}
     rnd=10; {dlya zapolneniya randomom}
type
    index = array [0..4,0..4] of integer;  {Tip massiva}
var
   mas:index;  {sam massiv}
   i,j:integer; {peremenniecikla}
BEGIN
     randomize; {ob'yavlaet o tom, 4to budet random}
     ClrScr; {O4istka ekrana}
     WriteLn ('Nazjmite klavishu dlya demonstracii zapolneniyamassiva.');
     WriteLn ('Posle nazjatiya massiv budet zapolnen Randomom');
     WriteLn ('Glavnaya diagonal budet zapolnena nulyami');
     Write ('Nazjmite klavishu dlya prodolzjeniya...');
     ReadKey; {Ozjidanie nazjatia klavishi}
     ClrScr; {o4istka ekrana}
     {-------------zapolneniemassiva---------------}
     For i:=0 to n do
         For j:=0 to n do
             if (i=j) then
                mas[i,j]:=0
                else mas[i,j]:=Random(rnd);
     {-----------VIVOD-----------------------------}
     For i:=0 to n do
     begin
          for j:=0 to n do
          Write (mas[i,j], ' ');
          WriteLn;
     end;
     ReadKey;
END.