Задан двумерный массив 3,4, найти max элемент

var a:array [1..3,1..4] of integer;

i,j,k:integer;

BEGIN

k:=-maxint;

for i:=1 to 3 do

for j:=1 to 4 do begin

read(a[i,j]);

if (a[i,j]>k) then k:=a[i,j];

end;

writeln(k);

end.