Сформировать новый массив Zk, состоящий из первых пяти положительных элементов массива Xn

Var X,Y,Z:array[1..100] of integer;
    i,n,m,k,j,t:integer;
Begin
    write('Введите n: ');readln(n);
    writeln('Массив X');
    For i:=1 to n do
    Begin
      X[i]:=random(31)-15;
      write(X[i]:4);
    End;
    writeln;
    write('Введите m: ');readln(m);
    writeln('Массив Y');
    For i:=1 to m do
    Begin
      Y[i]:=random(31)-15;
      write(Y[i]:4);
    End;
    k:=0;
    For i:=1 to n do
     if (X[i]>0)and(k<5) then
     Begin
       inc(k);
       Z[k]:=X[i];
     End
     else if k=5 then break;
    writeln;
    For i:=m downto 1 do
     if (Y[i]<0)and(k<10) then
     Begin
       inc(k);
       Z[k]:=Y[i];
     End
     else if k=10 then break;
    if k<10 then writeln('Нету 5-ти последних отрицательных или 5-ти положительных')
     else 
     Begin
       writeln('Массив Z');
       For i:=1 to k do
        write(Z[i]:4);
     End;
    writeln;
    For i:=n downto 2 do
     For j:=2 to i do
      if X[j]<X[j-1] then
      Begin
        t:=X[j];
        X[j]:=X[j-1];
        X[j-1]:=t;
      End;
    writeln('Отсортированный массив X');
    For i:=1 to n do
     write(X[i]:4);
    readln;
End.