очень срочно нужна помощь по паскалю сижу на экзамене. дома буду обязательно отблагодарю и скину деньги если что

program qwerty;
var i, j, n: integer;
x, y: array [1..n] of integer;
begin
j:= 1;
for i:= 1 to n do
begin
if x(i) > 0 then
begin
y[j]:= x(i);
j:= j + 1;
end;
end;
for i:= 1 to n do
begin
if x(i) = 0 then
begin
y[j]:= x(i);
j:= j + 1;
end;
end;
for i:= 1 to n do
begin
if x(i) < 0 then
begin
y[j]:= x(i);
j:= j + 1;
end;
end;
end.

const Size = 100;
type VectorType = Integer;
var x : array [1..Size] of VectorType; n, p, r : Byte; tmp : VectorType;
begin
....{ вводим или заполняем рандомами массив x из n элементов }
{ сортируем положительные }
p := 1; while p < n do begin Inc(p); r := p; while (r > 1) and (x[r] > 0) and (x[r - 1] <= 0) do begin tmp := x[r]; x[r] := x[r-1]; x[r-1] := tmp; Dec(r); end;
end;
{ сортируем нулевые }
p := 1; while p < n do begin Inc(p); r := p; while (r > 1) and (x[r] = 0) and (x[r - 1] < 0) do begin tmp := x[r]; x[r] := x[r-1]; x[r-1] := tmp; Dec(r); end;
end;
... { выводим результат }
end.