В двумерном массиве произвести сортировку столбцов по убыванию элементов последней строки

type masint=array[1..1000,1..1000] of integer;
var
 
i,j,n:integer;
a:masint;
 
function bs(m:masint; h,n:integer): masint;
var
c,i,b:integer;
begin
  for b:=1 to n do
  for i:=1 to n-b do
  if m[i,h]>m[i+1,h] then
    begin
    c:=m[i+1,h];
    m[i+1,h]:=m[i,h];
    m[i,h]:=c;
    end;
  bs:=m;
end;
function vs(m:masint; n:integer): masint;
var
c,i,b,x:integer;
l:array [1..1000] of integer;
begin
  for b:=1 to n do
  for i:=1 to n-b do
  if m[n,i]>m[n,i+1] then
    begin
    for x:=1 to n do
    begin
    c:=m[x,i+1];
    m[x,i+1]:=m[x,i];
    m[x,i]:=c;
    end;
    end;
  vs:=m;
end;
 
 
begin
read(n);
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);
 
for j:=1 to n do
a:=bs(a,j,n);
 
a:=vs(a,n);
for i:=1 to n do
begin
writeln;
for j:=1 to n do
write(a[i,j],' ');
end;
end.

const
  maxSize=10;
type
  Tmatrix=array[1..maxSize,1..maxSize] of real;
procedure createMatrix(var mat:Tmatrix; var size:integer);
var 
  i,j:integer;
begin
  repeat
    write('Порядок матрицы, не более ',maxSize,'=');
    readln(size);
  until(size in [1..maxSize]);
  for i:=1 to size do
    for j:=1 to size do
      mat[i,j]:=random*5;  
end;
procedure printMatrix(const mat:Tmatrix; size:integer; msg:string);
var 
  i,j:integer;
begin
  writeln(msg);
  for i:=1 to size do
    begin
      for j:=1 to size do
        write(mat[i,j]:0:1,' ');
      writeln;
    end;
  writeln;
end;
procedure rsortLastRow(var mat:Tmatrix; size:integer);
var
  i,j,k:integer;
  tmp:real;
begin
  for i:=1 to size-1 do
    for j:=i+1 to size do
      if mat[size,i]<mat[size,j] then
        for k:=1 to size do
          begin
            tmp:=mat[k,i];
            mat[k,i]:=mat[k,j];
            mat[k,j]:=tmp;
          end;
end;
function getSum(const mat:Tmatrix; size:integer):real;
var
  i:integer;
  s:real;
begin
  s:=0;
  for i:=1 to size do
    s:=s+mat[i,i]+mat[i,size-i+1];
  if odd(size) then
    s:=s-mat[size div 2+1,size div 2+1];
  getSum:=s;
end;
var
  a:Tmatrix;
  n:integer;
begin
  randomize;
  createMatrix(a,n);
  printMatrix(a,n,'Исходная матрица:');
  rsortLastRow(a,n);
  printMatrix(a,n,'После сортировки:');
  writeln('Сумма=',getSum(a,n):0:1);
end.