Преобразовать матрицу, чтобы на главной диагонали стояли максимальные элементы столбца

type
  ar=array[1..10,1..10] of integer;
var
  a:ar;
  i,j,m,t,n:integer;
  
function imax(a:ar;j:integer):integer;
var i,max:integer;
begin
  for i:=1 to m do
    if a[i,j]>max then
      begin
        max:=a[i,j];
        result:=i;
      end;
end;
 
begin
writeln('Введи m');
readln(m);
writeln('Исходный массив:');
for i:=1 to m do
  begin
    for j:=1 to m do
      begin
        a[i,j]:=random(10);
        write(a[i,j]:2);
      end;
  writeln;
  end;
writeln('Измененный массив:');
for j:=1 to m do
  begin
    n:=imax(a,j);
    t:=a[j,j];
    a[j,j]:=a[n,j];
    a[n,j]:=t;
  end;
for i:=1 to m do     
  begin
    for j:=1 to m do
      write(a[i,j]:2);
    writeln;
  end;
end.

type
  ar=array[1..10,1..10] of real;
var
  a:ar;
  i,j,m,n:integer;
  t:real;
  
function imax(a:ar;j:integer):integer;
var 
  i:integer;
  max:real;
begin
  for i:=1 to m do
    if a[i,j]>max then
      begin
      max:=a[i,j];
      result:=i;
      end;
end;
 
begin
writeln('Введи m');
readln(m);
writeln('Исходный массив:');
for i:=1 to m do
  begin
    for j:=1 to m do
      begin
        a[i,j]:=random(100)/10;
        write(a[i,j]:5);
      end;
  writeln;
  end;
writeln('Измененный массив:');
for j:=1 to m do
  begin
    n:=imax(a,j);
    t:=a[j,j];
    a[j,j]:=a[n,j];
    a[n,j]:=t;
  end;
for i:=1 to m do     
  begin
    for j:=1 to m do
      write(a[i,j]:5);
    writeln;
  end;
end.

unit modul;
interface
type ar=array[1..10,1..10] of real;
function imax(a:ar;m,j:integer):integer;
implementation
function imax(a:ar;m,j:integer):integer;
var i:integer;
begin
result:=1;
for i:=2 to m do
if a[i,j]>a[result,j] then result:=i;
end;
end.

uses crt,modul;
var a:ar;
    m,i,j,n:integer;
    t:real;
begin
randomize;
repeat
writeln('Введите размер матрицы от 2 до 10 m=');
readln(m);
until m in [2..10];
writeln('Исходный массив:');
for i:=1 to m do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=10*random;
    write(a[i,j]:5:2);
   end;
  writeln;
 end;
writeln('Измененный массив:');
for j:=1 to m do
 begin
  n:=imax(a,m,j);
  t:=a[j,j];
  a[j,j]:=a[n,j];
  a[n,j]:=t;
 end;
for i:=1 to m do
 begin
  for j:=1 to m do
  write(a[i,j]:5:2);
  writeln;
 end;
end.

function imax(a:ar):integer;

    n:=imax(a);