Программу написал, но выводит только одно значение

[Camelot_2012]

В матрице А (mxn) элементы главной диагонали расположить в порядке возрастания их абсолютных величин.

Program zadacha;
Uses crt;
const 
     n=3;    
var a:array[1..n,1..n] of integer;
    i,j,k:integer;
begin clrscr;
for i:=1 to n do
for j:=1 to n do
begin
write('vvedite a[', i, ',', j, ']: ');
read(a[i,j]);
end;
for i:=1 to n do
begin
writeln;
for j:=1 to n do
write(a[i,j]:6);
end;
for i := 1 to n- 1 do 
for j := i + 1 to n do
if abs(a[i,i]) < abs(a[j,j]) then
begin
k := a[i,i];
a[i,i] := a[j,j];
a[j,j] := k;
end;
for i:=1 to n do
writeln;
write(a[i,i], ' ');
end.

---------------
Кросспостинг ЗАПРЕЩЁН правилами форума.
Ваша тема тут: Расположить в порядке возрастания их абсолютных величин.

Модератор.

[Stilet]

Не удивительно.

for i:=1 to n do
writeln;

после do идет только один оператор, и тот просто перевод строки и времени
Вывод нужно делать так же как и ввод в твоем случае - двумя циклами

[Serge_Bliznykov]

Сообщение от Camelot_2012

Программу написал

что-то я СИЛЬНО сомневаюсь, что это Вы программу написали!

Сообщение от Stilet

Вывод нужно делать так же как и ввод в твоем случае - двумя циклами

Виталий, там же у него после ввода сразу и вывод идёт.
скопировать несколько строк у TC тямы не хватило....

WriteLn;
WriteLn('Полученная матрица:');
for i:=1 to n do begin
  for j:=1 to n do
     write(a[i,j]:6);
  writeln;
end;