исправить ошибку

[Дмитрий Solov]

3) преобразовать массив таким образом, чтобы сначала располагались все
отрицательные элементы, а потом все положительные(элементы равные нулю, считать положительными).
var
a: array [1..100] of real;
i, n: integer;
begin
write('n = ');
readln(n);
writeln('vvedi massiv');
for i := 1 to n do begin
read(a[i]);
if (a[i] < 0)
then
write(a[i],' ');
end;
for i := 1 to n do
if (a[i] >= 0)
then
write(a[i],' ');

end.

[Serge_Bliznykov]

код не оформлен.
Название темы не соответствует решаемой задаче.

ТЕМА ЗАКРЫТF