Подкорректировать программу

[wrmarw]

Подскажите, что неправильно в выделенной части??? Пожалуйста!

program thj;
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.

напишите, пожалуйста, верный код. Будем очень признательны за помощь!

[ROMA2PVT]

А что необходимо то?Поставить сначала положительные,затем нулевые и после отрицательные элементы?

[Александриус]

program thj;
uses crt; //подключаем модуль
var N, i, k: integer;
 X, Y: array [1..20] of real;
begin
clrscr;
{размерность массива}
writeln('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;
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.

[wrmarw]

огромное спасибо!!!

[wrmarw]

только она не работает!

[wrmarw]

упс, уже заработала!!!!!!!!