Задача на массив

[Casper098]

дана матрица A(6*6).Определить наибольший из элементов матрицы,лежащий ниже её диоганали.

Вот программа рабочая,но только тут находит максимальный элемент всей матрицы,а нужно только ниже главной диоганали.
Подскажите,что нужно изменить здесь,или добавить.

Program prim;
uses crt;
var a:array [1..6,1..6] of integer;
max,i,j,integer;
begin
clrscr;
randomize;
max:=-1;
begin
for i:=1 to 6 do
begin
for j:=1 to 5 do
begin
a[i,j]:=random (20)-10;
if max<a[i,j] then
max:=a[i,j];
write (a[i,j]:4];
end;
a[i,6]:=random (20)-10;
if max<a[i,6] then
max:=[i,6];
writeln (a[i,6]:4);
end;end;
writeln('max= ',max);
end.

[_kilik_]

Program prim;
 
 var a:array [1..6,1..6] of integer;
 max,i,j :integer;
 begin
	randomize;
	max:=-1;
	for i:=1 to 6 do
	begin
		for j:=1 to 6 do
		begin
			a[i,j]:=random (20)-10;
			if i<j then 
				if max<a[i,j] then
					max:=a[i,j]; 	
		write (a[i,j]:4);
		end;
	writeln;
	end;
	writeln('max= ',max);
	readln;
 end.