Найти максимальный элемент матрицы

uses crt;
const nmax=6;{максимальный размер матрицы}
var a,b:array[1..nmax,1..nmax] of integer;{тип матрицы}
    m,i,j:byte;
    max:integer;
begin
clrscr;
repeat
write('Размер матрицы до ',nmax,' m=');
readln(m);
until m in [1..nmax];{проверяем ввод размера, если от 1 до 6, то нормально}
writeln('Введите ',m*m,' элементов матрицы:');
for i:=1 to m do
for j:=1 to m do
 begin
  write('a[',i,',',j,']=');
  readln(a[i,j]);
 end;
clrscr;{очистим экран от ввода}
writeln('Матрица A:');
max:=a[1,1];{пусть максимальный-первый}
for i:=1 to m do
 begin
  for j:=1 to m do
   begin
    if a[i,j]>max then max:=a[i,j];{если найдем больше - он максимальный}
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln('Максимальный элемент=',max);
writeln('Матрица B:');
for i:=1 to m do
 begin
  for j:=1 to m do
   begin
    if i<>j then b[i,j]:=a[i,j]*max{если не главная диагональ, умножаем}
    else b[i,j]:=a[i,j];{если главная, просто переписываем}
    write(b[i,j]:5);
   end;
  writeln;
 end;
readln
end.

program massiv2;
var
m,i,j:integer;
max:real;
a,b:array [1..5,1..7] of real;
begin
writeln ('vvod razm');
read (m);
writeln ('vvod dan a');
for i:=1 to m do
for j:=1 to m do
read (a[i,j]);
max:=a[1,1];
for i:=1 to m do
for j:=1 to m do
if a[i,j]>max then max:=a[i,j];
writeln ('max=',max:6:2);
b:=a;
for i:=1 to m do
for j:=1 to m do
if i=j then b[i,j]:=a[i,j]*max;
for i:=1 to m do
begin
for j:=1 to m do
write (b[i,j]:6:2);
writeln;
end;
end.

if i=j then b[i,j]:=a[i,j]*max;

if i<>j then b[i,j]:=a[i,j]*max;