Дана матрица A[1..n,1..m] целых чисел. Напишите программу, которая переставит столбцы матрицы А таким образом, чтобы элементы последней строки стали упорядоченными в убывающем порядке. Для упорядочивания использовать метод сортировки посредством выбора и не использовать дополнительную матрицу. Измененную матрицу вывести на экран.

Так все норм, только вот это мы не учили

//часть 1var a: array [1..100, 1..100] of integer;n, m, i, j : integer;procedure zam(a1, b1: integer);var i1, j1: integer;beginfor i1:=1 to n dobegina[i1, a1]:=a[i1, a1]+a[i1, b1];a[i1, b1]:=a[i1, a1]-a[i1, b1];a[i1, a1]:=a[i1, a1]-a[i1, b1];end;end;procedure sortSelect ();var max, i, j: integer;begin for i:=1 to m dobeginmax:=i;for j:=i to m doif a[n,max]<a[n,j] then max:=j;if i<>max then zam (i, max);end;end;

//PascalABC.Net 3.2var m, n: integer;a: array of array of integer;procedure zam(a1, b1: integer);beginfor var i:=0 to n-1 dobegina[i][a1]+=a[i][b1];a[i][b1] :=a[i][a1]-a[i][b1];a[i][a1]-=a[i][b1];end;end;procedure sortSelekt ();var max: integer;begin for var i:=0 to m-1 dobeginmax:=i;for var j:=i to m-1 doif a[n-1][max]<a[n-1][j] then max:=j;if i<>max then zam (i, max);end;end;procedure printMAS ();beginfor var i:=0 to n-1 dobeginfor var j:=0 to m-1 do write (a[i][j]:4);writeln;end;end;beginn:=readinteger('n =');m:=readinteger('m =');setLength (a, n);for var i:=0 to n-1 do a[i]:=arrRandom (m, -99, 99);writeln ('Первоначальная случайная матрица: ');printMAS();sortSelekt ();writeln ('Измененная матрица: ');printMAS();end.