помогите пожалуйста с решением задачи:
дана целочисленная квадратная матрица размерностью N.Упорядочить по возрастанию элементы побочной диагонали!
заранее спасибо!
const k=100;
var
n,i,j,hlp:byte;
mas: array[1..k,1..k] of byte;
begin
randomize;
write('n> ');
readln(n);
for i:=1 to n do
for j:=1 to n do mas[i,j]:=random(89)+10; {чтоб не набивать массив вручную:) }
writeln;
for i:=1 to n do begin
for j:=1 to n do write(mas[i,j]:3);
writeln;
end; {вывод массива}
for j:=1 to n-1 do begin {сортировка}
for i:=j to n-1 do begin
if mas[j,n+1-j]>mas[i+1,n-i] then begin
hlp:=mas[j,n+1-j];
mas[j,n+1-j]:=mas[i+1,n-i];
mas[i+1,n-i]:=hlp;
end;
end;
end;
writeln;
for i:=1 to n do begin
for j:=1 to n do write(mas[i,j]:3);
writeln;
end; {вывод нового массива}
end.