Задачка по информатике, на паскале пожалуйста

begin

 var n := ReadlnInteger;

 var a := ReadArrInteger(n);

 a := (a.Where(t -gt; t gt; 0) + a.Where(t -gt; t = 0) +  

       a.Where(t -gt; t lt; 0)).ToArray;

 a.PrintLn

end.

var a,b: array [1..10000] of integer;

n,i,k:integer;

begin

write('Введите количество частей массива: ');

read(n);

write('Введите элементы массива: ');

for i:=1 to n do read(a[i]);

for i:=1 to n do

if a[i]gt;0 then

begin

k:=k+1;

b[k]:=a[i]

end;

for i:=1 to n do

if a[i]=0 then

begin

k:=k+1;

b[k]:=a[i]

end;

for i:=1 to n do

if a[i]lt;0 then

begin

k:=k+1;

b[k]:=a[i]

end;

for i:=1 to n do write (b[i], ' ')

end.