Разделить элементы каждого столбца матрицы на максимальный элемент этого столбца.

program maxarray;
 
uses
  crt;
const
  nmax=20;
var
  a:array[1..nmax,1..nmax] of real;
  m,n,i,j:byte;
  mx:real;
begin
  clrscr;
  randomize;
  repeat
    write('Количество строк до ',nmax,' m=');
    readln(m);
  until m in [1..nmax];
  repeat
    write('Количество столбцов до ',nmax,' n=');
    readln(n);
  until n in [1..nmax];
  writeln('Исходная матрица:');
  for i:=1 to m do
    begin
      for j:=1 to n do
        begin
          a[i,j]:=random(20);
          write(a[i,j]:8:2);
        end;
      writeln;
    end;
  writeln;
  for j:=1 to n do
    begin
      mx:=a[1,j];
      for i:=1 to m do
        if a[i,j]>mx then
          mx:=a[i,j];
      writeln('Максимальный в столбце ',j:2,'=',mx:8:2);
      for i:=1 to m do
        a[i,j]:=a[i,j]/mx;
    end;
  writeln('Полученная матрица:');
  for i:=1 to m do
    begin
      for j:=1 to n do
          write(a[i,j]:8:2);
      writeln;
    end;
  readln;
end.