Переписать положительные элементы массива X (30) и Y (30) в массив Z

var
  x, y: array[1..30] of integer;
  i, size: byte;
  z: array of integer;
 
procedure plus(i: integer);
begin
  if i > 0 then 
  begin
    size := size + 1;
    SetLength(z, size);
    z[size - 1] := i;
  end;
end;
 
begin
  size := 1;
  Randomize;
  write('Массив x: ');
  for i := 1 to 30 do
  begin
    x[i] := Random(-100, 100);
    write(x[i]:4);
    plus(x[i]);
  end;
  writeln;
  write('Массив y: ');
  for i := 1 to 30 do
  begin
    y[i] := Random(-100, 100);
    write(y[i]:4);
    plus(y[i]);
  end;
  writeln;
  write('Массив z: ');
  for i := 1 to size - 1 do
    write(z[i]:4);
end.

program pr;
uses crt;
type mas= array[1..100] of real;
var x,y,z: mas ;
i,m,k,n : integer;
               procedure zap(var a:mas; nn:integer);
               var i:integer;
                begin
           for i:=1 to nn do begin
              a[i]:=random(25); 
               write(a[i]:4); 
          end;
   end;
                    procedure st(a: mas; nn : integer; var c:mas; k : integer);
                         var i : integer;
                    begin 
                         
                        for i:=1 to nn do
                              if a[i]>0 then
                                        begin
                                           k:=k+1;
                                             c[k]:=a[i];
 
                                 end;
                         end;
 
begin
read(n,m);
 
zap(x,n);
writeln;
zap(y,m);
 
 
st(x,n,z,k);
 
st(y,m,z,k);
writeln;
for i :=1 to k do
write(z[i]:4);
 
readkey
end.