Рекурсивная и итеративная подпрограммы

for I:=1 to N do if A[I]<0 then Write(A[i],' ');

program laba_7;
const
n=100;
type
  mas = array[1..n] of byte;
 
var
  x: mas;
  i: byte;
 
procedure vvod;
begin
i := 0;
  writeln('Введите последовательность целых неотрицательных чисел'#10#13 'конец последовательности 0');
    repeat 
    i := i + 1;
    read(x[i])
  until x[i] = 0;
  readln;
end;  
procedure perebor(var x: mas; i: byte);
begin
if i=1 then writeln('Пустая последовательность.')
else
  if x[i] = 0 then write('   ')
  else 
  begin
    if x[i] mod 2 = 0 then writeln(' ' , x[i]);
    perebor(x, i + 1);
    if x[i] mod 2 <> 0 then writeln( ' ' , x[i]);
  end
end;
 
begin
  vvod; 
  perebor(x, 1);
end.

program laba_7;
const
  MaxN=100;
type
  mas = array[1..MaxN] of byte;
 
 
procedure vvod(var pX : mas; var pN : byte);
var m : integer;
begin
  pN := 0;
  writeln('Введите последовательность '+
          'целых неотрицательных чисел'#10#13'конец последовательности 0');
  read(m);
  while (m<>0) and (pN<MaxN) do 
  begin
     inc(pN);
     pX[pN] := m;
     read(m);
  end;
  readln;
end;  
 
 
procedure perebor(var x: mas; i, n : byte);
begin
  if i>n then Exit
  else
  begin
    if x[i] mod 2 = 0 then writeln(' ' , x[i]);
    perebor(x, i + 1, n);
    if x[i] mod 2 <> 0 then writeln( ' ' , x[i]);
  end
end;
 
var
  x: mas;
  n: byte;
 
 
begin
  vvod(x,n);
  if n=0 
    then writeln('Пустая последовательность.')  
    else  perebor(x, 1, n);
  Readln
end.