Задача в паскале на массив

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

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.
и если так записать программу он уже максимум не правильно ищет.

[stupid_]

Пускай тебе больше этот человек не подсказывает.

Program prim;
uses crt;
var a:array[1..6,1..6] of integer;
max,i,j:integer;
stroka, stolbec: 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
begin
max:=a[i,j];
stroka := i;
stolbec := j;
end;
writeln('max= ',max);
writeln('stroka = ', stroka);
writeln('stolbec = ', stolbec);
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.