Задача в паскале

[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,показывало из какой строчки и какого столбца он берется?
Ребят подскажите пожалуйста?

[iCaesy]

str,stolb: set of byte;

str:=[i];
stolb:=[j];

writeln ('Srtoka: ',i,'Stolbec: ',j);

[Casper098]

что такое set of byte?
куда надо вставить?,паскаль ошибку выдает.
Может как то по другому можно найти?

[iCaesy]

Сообщение от iCaesy

str,stolb: set of byte;

Это в var

str:=[i];
stolb:=[j];

Это после цикла

writeln ('Srtoka: ',i,'Stolbec: ',j);

Это понятно куда

Так думаю ясно

[Casper098]

Program prim;
uses crt;
var a:array[1..6,1..6] of integer; str,stolb: set of byte;
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
str:=[i];
stolb:=[j];
if max<a[i,j] then
max:=a[i,j];
writeln('max= ',max);
writeln ('Stroka: ',i,' Stolbec: ',j);
end.


из какой строки и столбца берется максимум он не показывает,он все время пишет строка 6 столбец 5.
и если так записать программу он уже максимум не правильно ищет.