Переписать пять первых положительных элементов массива подряд в массив У

Uses Crt;
const
N=10;
var
x: array [1..N] of integer;
y: array [1..N] of integer;
max,i:integer;
begin
for i:=1 to N do begin
x[i]:=random(-10,10);
end;
for i:=1 to N do begin
write(x[i],' ');
end;
writeln;
for i:=1 to N do begin
if x[i]>0 then begin
y[i]:=x[i];
end;
end;
writeln;
writeln('massiv y:');
for i:=1 to 5 do begin
write(y[i],' ');
end;
max:=y[1];
write('max el mass y:');
for i:=2 to 5 do begin
if y[i]> max then
max:=y[i];
end;
write(max);
end.

const
  N = 20;
 
var
  x, y: array [1..N] of integer;
  k, max, i: integer;
 
begin
  randomize;
  k := 0;
  writeln('Массив X:');
  for i := 1 to N do 
  begin
    x[i] := -n div 2 + random(n);
    write(x[i]:3);
  end;
  for i := 1 to N do 
    if x[i] > 0 then 
    begin
      inc(k);
      y[k] := x[i];
      if k = 5 then
        break;
    end;
  writeln;
  writeln('Массив Y:');
  for i := 1 to k do 
    write(y[i]:4);
  writeln;
  max := y[1];
  for i := 2 to k do 
    if y[i] > max then
      max := y[i];
  write('Max: ', max);
end.

const
  N=10;
var
  x: array [1..N] of integer;
  y: array [0..N] of integer;
  max,i,k:integer;
begin
  for i:=1 to N do
   x[i]:=random(-10,10);
  writeln('Массив x:'); 
  for i:=1 to N do
    write(x[i],' ');
  writeln;
  k:=0;
  for i:=1 to N do
   if x[i]>0 then
   begin
    if k<=4 then
    begin
     y[k]:=x[i];
     k:=k+1;
    end;
   end;
  writeln;
  writeln('Массив y:');
  for i:=0 to k-1 do
    write(y[i],' ');
  writeln; writeln;
  max:=y[0];
  write('Максимальный элемент y: ');
  for i:=1 to k-1 do
   if y[i]> max then
    max:=y[i];
  write(max);
end.