[-=Mosvit=-]

Помогите пожалуйста составить программу на Паскале с таким заданием:
Составить программу, предусматривающую чтение исходной матрицы с дискового файла. Переставить столбцы в порядке возрастания наибольших элементов.

Чтение с матрицы с памяти компьютера я сделал, присвоив ей mas[i,j], теперь нужно в этой матрице mas[i,j] найти максимальный элемент в каждом столбце и переставить столбцы по возрастанию максимального элемента. На этом и застрял.

Код:

program lab2;
uses crt;
const n=5; m=5;
var mas: array[1..n,1..m] of integer;
      ft: text;
      i,j:integer;
begin
clrscr;
assign(ft,'123.txt');
reset(ft);
i:=1;
while not seekeof(ft) do
  begin
    j:=1;
    while not seekeoln(ft) do
       begin
          read(ft, mas[i,j]);
          j:=j+1;
       end;
     readln(ft);
     i:=i+1;
  end;
writeln;
writeln('Ishodnaya matrica:');
writeln;
for i:=1 to n do begin
 for j:=1 to m do write(' ',mas[i,j]);
writeln;
end;
readkey;
end.