Массив, нахождение макс элемента ниже главной диагонали

[L3zh1Y]

Помогите с задачей. Нужно найти максимальный элемент ниже главной диагонали. Что не так в задаче?
Задача:

uses crt;
var a:array[1..5,1..5] of integer;
max,nmax,dmax,pol,s,i,g:integer;
BEGIN
clrscr;
writeln ('Massiv 5x5');
writeln;
{max:=a[1];} nmax:=1;s:=0;
randomize;
For i:=1 To 5 Do begin
For g:=i To 5 Do begin
a[i,g]:=random(50);
write (a[i,g]:5);
writeln;
if a[i,g]>max then begin max:=a[i,g]; nmax:=i;dmax:=g;
end;
end;
end;
writeln;
writeln ('Maksimalnyi element massiva ', max,' pod nomerom ',nmax,',',dmax);
readln;
end.

[ROMA2PVT]

uses crt;
var a:array[1..5,1..5] of integer;
max,nmax,dmax,pol,s,i,g:integer;
BEGIN
clrscr;
writeln ('Massiv 5x5');
writeln;
nmax:=1;s:=0;
randomize;
For i:=1 To 5 Do
begin
For g:=1 To 5 Do
begin
a[i,g]:=random(50);
write (a[i,g]:5);
end;
writeln;
end;
writeln;
max:=a[1,1];
For i:=1 To 5 Do
begin
For g:=1 To 5 Do
begin
if (g<i) and (a[i,g]>max) then
begin
max:=a[i,g];
nmax:=i;
dmax:=g;
end;
end;
end;
writeln;
writeln ('Maksimalnyi element massiva a[',nmax,';',dmax,']:=',max);
readln;
end.

[L3zh1Y]

Благодарю, очень помогли!