массив в паскале

[Olgaandsasha]

задание: дано 100 чиселю напечатать по 5 элементов в строке сначала все отрицательные, затем нулевые и положительные из них.

помогите что не так?
работает, но как то не правильно((

Program olga;
var
C: array [1..100] of Integer;
i, j, t, d: Integer;
begin
randomize;
writeln('massiv C=');
for i:=1 to 100 do
begin
C[i]:=-20+random(201);
writeln(C[i]:5);
end;
writeln;
for d:=1 to 99 do
begin 
for i:=1 to 100-d do
begin if C[i]>C[i]+1 then
t:=C[1];
C[i]:=C[i]+1;
t:=C[1]+1;
end;
for i:=1 to 100 do
write(C[i]:5);
if i<=100 then
begin
for j:=1 to 100 do
begin
i:=i+1;
writeln(c[i]:5);
readln;
end;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[IT-man]

for d:=1 to 99 do
begin 
for i:=1 to 100-d do
begin if C[i]>C[i]+1 then
t:=C[1];
C[i]:=C[i]+1;
t:=C[1]+1;
end;

это я так понимаю упорядочивание! какое то странное оно у вас

вот так не правильнее

if C[i]>C[i+1] then begin
t:=C[i];
C[i]:=C[i+1];
C[i+1]:=t;
end;

if i<=100 then
begin
for j:=1 to 100 do
begin
i:=i+1;
writeln(c[i]:5);
readln;
end;

это что ???

тут проще в 3 прохода по массиву выводить данные чем так как у вас

[Olgaandsasha]

а как матрицу вывести по 5 элементов в строчку?

[IT-man]

а как матрицу вывести по 5 элементов в строчку?

k:=1;
for i:=1 to 20 do begin
for j:=1 to 5 do begin
write (a[k]:5);
inc(k);
end;
writeln;
end;

[Serge_Bliznykov]

а как матрицу вывести по 5 элементов в строчку?

ну, например, так:

WriteLn;
for i:=1 to 100 do begin
  Write(C[i]:5);
  if (i mod 5) = 0 then WriteLn;
end;

[Olgaandsasha]

Огромное спасибо!!!! Вы мне очень помогли))