Дан двумерный массив A[n,m]. Определить максимальный элемент массива
Решите пожалуйста

Program n1;const n=3; m=5;var a: array[1..n,1..m] of integer;i,max,j: integer;beginwriteln('массив :');randomize;for i:=1 to n dobeginfor j:=1 to m do begina[i,j]:=random(19)-9;write(a[i,j], ' ');end;writeln;end;max:=a[1,1];for i:=1 to n do for j:=1 to m do if a[i,j]> max then max:=a[i,j];write('максимальный: ',max);end.