Необходимо написать программу на языке pascal Задан двумерный массив целых чисел

Const
  nn=50; очень возможное кол-во строк
  mm=50; очень вероятное кол-во столбцов
var
  a:array[1..nn,1..mm] of integer;
  i,j,m,n,imax,t:integer;
begin
  Write('Количество строк в массиве: '); Read(n);
  Write('Количество столбцов в массиве: '); Read(m);
  Writeln('Вводите элементы массива');
  for i:=1 to n do
    for j:=1 to m do Read(a[i,j]);
  for j:=1 to m do begin
    imax:=1;
    for i:=2 to n do
      if a[i,j]gt;a[imax,j] then imax:=i;
    if ilt;gt;1 then begin
      t:=a[1,j]; a[1,j]:=a[imax,j]; a[imax,j]:=t
      end
    end;
  Writeln('Итог');
  for i:=1 to n do begin
    for j:=1 to m do Write(a[i,j]:3);
    Writeln
    end
end.