Пользовательский модуль. Работа с Матрицами

[glebochek]

Отсортировать столбцы матрицы в порядке убывания суммы их элементов. Нужно написать через пользовательский модуль.

Не могу код доделать

Текст модуля

unit matrix;
interface
const max=10;
type matr=array[1..max,1..max] of real;
procedure Vvod(var m:matr;var x:byte);
procedure Vyvod(var m:matr;x:byte);
procedure Zamena(var m:matr; x,sm:real );
implementation
procedure Vvod;
var i,j:byte;
begin
repeat
write('razmer matrichu do ',max,' = ');
readln(x);
until x in [1..max];
for i:=1 to x do
for j:=1 to x do
m[i,j]:=10*random;
end;
procedure Vyvod;
var i,j:byte;
begin
for i:=1 to x do
begin
for j:=1 to x do
write(m[i,j]:5:2);
writeln;
end;
writeln;
end;
procedure Zamena;

var i,j,k,n:byte ;


begin


{for j:=1 to n do
begin
sm:=0;
for i:=1 to n do
sm:=sm+m[i,j];
m[n+1,j]:=sm;{i zapisuvaem v dopolnitelnuy stroku}
{ end;}
writeln('isxodnai matrica:');
for i:=1 to n do
begin
write(' ':6);{5 probelov v nachale stroki}
for j:=1 to n do
write(m[i,j]:6:2);{elementu stroki}
writeln;
end;


{write('summa ');{dopolnitelnai stroka s symami}
{for j:=1 to n do
write(m[n+1,j]:6:2);
writeln;
writeln;


{perestanovka stolbcov po ybuvaniu 3nachenii v poslednei stroke}
for j:=1 to n-1 do
for k:=j+1 to n do
if m[n+1,j]<m[n+1,k] then
for i:=1 to n+1 do
begin
x:=m[i,j];
m[i,j]:=m[i,k];
m[i,k]:=x;
end;
writeln('stolbchu ypor9dochenu:');
for i:=1 to n do
begin
write(' ':6);
for j:=1 to n do
write(m[i,j]:6:2);
writeln;
end;
{write('summa ');
for j:=1 to n do
write(m[n+1,j]:6:2); }
readln;
end;
end.



Текст программы

uses crt,matrix;
var m:matr;
n:byte;
begin
clrscr;

Vvod(m,n);
writeln('ishodnai matricha:');
Vyvod(m,n);
Zamena(m,n);
writeln('izmenennai matricha:');
Vyvod(m,n);
readln;
end.