Вывести все нулевые элементы, затем все положительные элементы в порядке возрастания, затем все отрицательн

var
n,i,p,c:integer;
A:array [1..100] of integer;
begin
  randomize;
  readln(n);
  writeln('Начальная матрица: ');
  for i:=1 to n do begin
    A[i]:=random(20+20+1)-20;
    write(A[i],' ');
    end;
  writeln;
  writeln('Результат:');
  for i:=1 to n do
    if A[i]=0 then write(A[i],' ');
  repeat
    p:=0;
    for i:=1 to n-1 do
        if A[i]>A[i+1] then
        begin   
            c:=A[i];
            A[i]:=A[i+1];
            A[i+1]:=c;
            p:=1;
        end;
    until p=0;
  for i:=1 to n do if A[i]>0 then write(A[i],' ');
  for i:=1 to n do if A[i]<0 then write(A[i],' ');
end.

  randomize; //удалить
  readln(n);
  writeln('Начальная матрица: ');//удалить
  for i:=1 to n do begin
    writeln(A[i]) //меняешь на это
    write(A[i],' ');//удалить
    end;

if (A[i]>A[i+1]) and (A[i]>0) then