Двумерный массив (Двохвимірний масив) Turbo Pascal

Вот, проверил - работает
var m:array[1..3,1..4] of integer;
i,k,j,max,l,g,h:integer;
begin

randomize;
i:=1;
k:=1;
for j:=1 to 4 do
m[i,k]:=random(100);
if m[i,k]>m[i+1,k+1] then max:=m[i,k] else max:=m[i+1,k+1];

Writeln(max);
end.