Переписать подряд все положительные элементы массивов Х(20) и Y(15) в массив Z .

uses crt;
var x:array[1..20]of integer;
y:array[1..15]of integer;
z:array[1..35]of integer;i,j:integer;
begin
clrscr;
writeln('первый массив');
for i:=1 to 20 do
begin
x[i]:=random(2000)-1000;
write(x[i],' ');
if x[i]>0 then begin j:=j+1;z[j]:=x[i];end;
end;
writeln('второй массив');
for i:=1 to 15 do
begin
y[i]:=random(2000)-1000;
write(y[i],' ');
if y[i]>0 then begin j:=j+1;z[j]:=y[i];end;
end;
writeln('новый массив');
for j:=1 to 35 do
if z[j]<>0 then write(z[j],' ');
end.

for i:=1 to j do
 write(z[i],' ');

var  x: array[1..20] of integer;
     y: array[1..15] of integer;
     z: array[1..35] of integer;
     i, j: byte;
 
begin
    randomize;
 
    write('Massiv x: ');
    for i:= 1 to 20 do
      begin
        x[i]:= random(21)-10;
        write(x[i], ' ');
      end;
    writeln;
 
    write('Massiv y: ');
    for i:= 1 to 15 do
      begin
        y[i]:= random(21)-10;
        write(y[i], ' ');
      end;
    writeln;
 
    j:= 1;
    for i:= 1 to 20 do
      if x[i] > 0 then
        begin
          z[j]:= x[i];
          j:= j+1;
        end;
 
    for i:= 1 to 15 do
      if y[i] > 0 then
        begin
          z[j]:= y[i];
          j:= j+1;
        end;
 
    write('Massiv z: ');
    for i:= 1 to j-1 do
      write(z[i], ' ');
 
    readln;
end.

var  
  x,y,z: array[1..35] of integer;
  i,j,k,l: integer;
Begin
  randomize;
  for i:=1 to 20 do
    begin
      x[i]:=random(100)-50;
      write(x[i]:4)
      if x[i]>0 then inc(k);
    end;
  writeln;
  l:=k;
  for j:=1 to k do
  for i:=1 to 20 do
    if x[i]>0 then begin
      z[j]:=x[i];
      x[i]:=0;
      break; end;
   for i:=1 to 15 do
    begin
      y[i]:=random(100)-50;
      write(y[i]:4)
      if y[i]>0 then inc(l);
    end;
  writeln;
  for j:=k+1 to l do
  for i:=1 to 15 do
    if y[i]>0 then begin
      z[j]:=y[i];
      y[i]:=0;
      break;
    end;
  for i:=1 to l do write(z[i]:4);
  writeln;
  readln;
End.