[Gelo]

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

Код:

procedure diagonal;
var b,f,z,ib,jb:integer;
begin
setlength(di,n);
f:=0;
jb:=0;
ib:=0;
while f<n do
begin
b:=a[f,0];
   for j:=0 to high(a) do
   begin
   for i:=0 to high(a) do begin
      if a[i,j]>b then if i=j  then break
      else  begin
        b:=a[i,j];
        ib:=i; jb:=j;
           end;
   end;  end;
a[ib,jb]:=a[f,f];
a[f,f]:=b;
inc(f);
end;
end;

Это уже не первый способ, ниодин не работает корректно.