Дана целочисленная прямоугольная матрица. Определить максимальное из чисел — Pascal(Паскаль)

var i,j,n,m,max:integer;
a:array [1..10,1..10] of integer;
begin
randomize;
clrscr;
write('Строк:');
readln(m);
write('Столбцов:');
readln(n);
for i:=1 to m do
for j:=1 to n do
a[i,j]:=random(20);
for i:=1 to m do
begin
for j:=1 to n do
write(a[i,j],' ');
writeln;
end;
max:=a[1,1];
for i:=1 to m do
for j:=1 to n do
if max<a[i,j] then max:=a[i,j];
writeln( 'max v matrise=',max);
readln;
end.