Определите процедуру p(x,y), которая создает массив, переставив элементы (сначала идут все положительные числа)

var a:array [1..20] of integer;
i:integer;
begin
   Writeln('Массим X: ');
   For i:=1 to 20 do
     begin
     randomize;
     a[i]:=-100+random(201);
     write(a[i],' ');
     end;
   Writeln;
   Writeln('Массим Y: ');
   For i:=1 to 20 do
     if a[i]>0 then write(a[i],' ');
   For i:=1 to 20 do
     if a[i]=0 then write(a[i],' ');
   For i:=1 to 20 do
     if a[i]<0 then write(a[i],' ');
end.

type
  tArr=array[1..20] of integer;
 
procedure init(var ar: tArr);
var i: integer;
begin
  Writeln('Массим X: ');
  for i := 1 to 20 do
  begin
    ar[i] := -100 + random(201);
    write(ar[i], ' '); 
  end;
  writeln;
end;
 
procedure change(var ar: tArr);
var i: integer;
begin
  Writeln('Массим Y: ');
  for i := 1 to 20 do
    if ar[i] > 0 then write(ar[i], ' ');
  for i := 1 to 20 do
    if ar[i] = 0 then write(ar[i], ' ');
  for i := 1 to 20 do
    if ar[i] < 0 then write(ar[i], ' ');  
end;
 
var
  a: tArr;
begin
  init(a);
  change(a);
  readln;
end.

program z;
var i,n:integer;
x,y:array [1..100] of integer;
procedure p(x1:array [1..100] of integer; n1:integer; var y1:array [1..100] of integer);
     var i,j:integer;
     begin
          j:=1;
          for i:=1 to n1 do
              if x1[i]>0
                 then
                     begin
                          y1[j]:=x1[i];
                          j:=j+1;
                     end;
          for i:=1 to n1 do
              if x1[i]=0
                 then
                     begin
                          y1[j]:=x1[i];
                          j:=j+1;
                     end;
          for i:=1 to n do
              if x1[i]<0
                 then
                     begin
                          y1[j]:=x1[i];
                          j:=j+1;
                     end;
     end;
begin
     write('Ðàçìåð ìàññèâà: ');
     readln(n);
     writeln('Ââîä ýëåìåíòîâ ìàññèâà: ');
     for i:=1 to n do
         begin
              write('x[',i,']=');
              readln(x[i]);
         end;
     writeln('Ìàññèâ X');
     for i:=1 to n do
         write(x[i],' ');
     writeln;
     p(x,n,y);
     writeln('Ìàññèâ Y');
     for i:=1 to n do
         write(y[i],' ');
end.