ARRAY!!! Паскаль!!!

[wrmarw]

что не работает в этой программе? (из заданного массива получить новый такой, что сначала идут положительные, затем нулевые и потом отрицательные числа). у меня после положительных идут одни нули! в чём дело? помогите исправить!!!

program a;
uses crt;
var N, i, k: integer;
X, Y: array [1..20] of Real;
begin
clrscr;
write ('vvedite razmer massiva N:');
readln (n);
for i:=1 to N do
begin
write ('X[',i,']=');
readln (X[i]);
end;
k:=0;
for i:=1 to N do;
if X [i]>0 then
begin
k:=k+1;
Y[k]:=x[i];
end;
for i:=1 to N do
if X[i]=0 then
begin
k:=k+1;
Y[k]:=x[i];
end;
write ('Otvet:');
for i:=1 to N do
write (Y[i]:5:1);
writeln;
readkey;
end.

[Hacker19_90]

Так у тебя нет поиска отрицательных чисел!!!!

[Hacker19_90]

И хорош разные темы создавать с одними и теми же вопросами

[Hacker19_90]

program a;
uses crt;
var N, i, k: integer;
X, Y: array [1..20] of Real;
begin
clrscr;
write ('vvedite razmer massiva N:');
readln (n);
for i:=1 to N do
begin
write ('X[',i,']=');
readln (X[i]);
end;
k:=0;
for i:=1 to N do;
if X [i]>0 then
begin
k:=k+1;
Y[k]:=x[i];
end;
for i:=1 to N do
if X[i]=0 then
begin
k:=k+1;
Y[k]:=x[i];
end;
if X[i]<0 then
begin
k:=k+1;
Y[k]:=x[i];
end;
write ('Otvet:');
for i:=1 to N do
write (Y[i]:5:1);
writeln;
readkey;
end.