Дан массив H размером 3*2 составить программку нахождения максимального элемента

Program z1;
var
n: array[1..10,1..10] of integer;
i,j,max: integer;
begin
max:=-1000;
writeln('Введите элементы массива');
for i:=1 to 3 do
for j:=1 to 2 do
begin
write('n[',i,',',j,']=');
readln(n[i,j]);
if n[i,j]gt;max then
max:=n[i,j];
end;
writeln('Максимальный элемент равен ',max);
end.