Дана матрица размера m×n. Найти ее максимальный элемент. Pascal ABC

Var
a:array[1..100,1..100] of integer;
b, i, j:integer;
begin
write(Размеры матрицы: );
readln(m,n);
for i:=1 to m do
for j:=1 to n do
readln(a[i,j]);
b:=a[1,1];
for i:=1 to m do
for j:=1 to n do
if a[i,j]gt;b then b:=a[i,j];
writeln(Максимальный элемент вашей матрицы равен ,b);
end.