Паскаль модификация задачи на массив

[Casper098]

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

Что нужно сделать,чтобы при выводе max,показывало из какой строчки и какого столбца он берется?
Ребят подскажите пожалуйста?

[all_is_fear]

можно так for i:= 1 to 6 do for j:=1 to 6 do if max=a[i][j] then writeln(i,j) ну оформить врайтлн и дописать в нем что элемент такого то слолбца и такой то строки, хотя - этот метод немного тормозить будет, если массив будет большим, все таки пока все элементы сравнит, но как вариант.