Дана матрица размера 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.