Дана матрица размера 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]>b then b:=a[i, j];

writeln ('Максимальный элемент вашей матрицы равен ', b);

end.