Задача на работу с матрицой.Сортировка. Опции

[Andrewshkovskii]

Задача такова :
Дана квадратная матрица MxN. Есле в главной диагонали присутствует отрицательный элемент,то выписать тот столбик,в котором этот отрицательный элемент стоит,и отсортировать его по убыванию.
Вот типа графически как это выглядит
1 5 3
1 -2 3
1 3 3

выписывается 2ой столбик
5
-2
3

и отсортировывается в ввиде
-2
5
3

Проблема возникает в следующем :
не понимаю как выписать этот столбик,главную диагональ нахожу,нахожу в ней отриц. элемент.
Я понимаю что надо сначала этот столбик записать в отдельный массив однамерный(вектор),потом отсортировать и вставить обратно..
вот с отбором столбика,сортировкой и вставкой у меня проблемы.

вот мой код..

uses crt;
const
n=3;
m=3;
l=3;
k=3;
type
matr = array [1..n,1..m] of integer;
stolb = array [1..l,1..k] of integer;
var
a:matr;
i,j,buf:integer;
ot:stolb;


begin
clrscr;
writeln('el-ti matrici vvedite plz');
for i:=1 to n do
for j:=1 to m do
begin
write('A[',i,j,']=');read(a[i,j]);
end;
      for i:=1 to n do begin
                            for j:=1 to m do
                            write(a[i,j],' ');
                            writeln;
                                end;

readkey;
writeln;
{=========================}
for I:=1 to n do
for j:=1 to m do
 begin
if i=j then
 if a[i,j] <0 then begin {таким образом я записываю только главную диагональ,а как сделать что бы записывался стобец...=/ }
buf:=a[i,j];
ot[i,j]:=buf;
end
 else
buf:=a[i,j];
ot[i,j]:=buf;
end;
for i:=1 to n do
begin
write(ot[i,j],' ');
writeln;
end;
readkey;
end.

Сообщение отредактировано: Andrewshkovskii - 30.11.2006 12:16

[мисс_граффити]

компилятор не виноват... тут же вложенности нет:

║for i := 1 to n do {заголовок цикла по i. begin отсутствует}
║  if a[i, i] < 0 then {тело цикла по i}
║    for j:=1 to n do {заголовок по j}
║    begin{начала тела по j}
║     buf[j]:=a[j,i]
║     end;{конец тела цикла по j. и по i тоже}

║     for i:=1 to n do{а это уже независимо}
║     for j:=1 to n do
║     if buf[i]>buf[j] then begin
║     temp_var:=buf[i];
║     buf[i]:=buf[j];
║     buf[j]:=temp_var;
║     end;