Индексы елемента

[kuy]

Здраствуйте, помогите пожалуйста дописать программу, нужно вывести индексы максимального елемента:
Задание:
Найти элемент матрицы (5х3) с максимальным значением и вывести его значение и индексы.

program laba9;

{$APPTYPE CONSOLE}
{6.	Çíàéòè åëåìåíò ìàòðèö³ (5õ3) ç ìàêñèìàëüíèì çíà÷åííÿì ³
âèâåñòè éîãî çíà÷åííÿ ³ ³íäåêñè.}

uses
  SysUtils;

const
 mas: array[1..5,1..3] of integer =
 (
 (3, 7, 2),
 (1, 9, 5),
 (3, 2, 7),
 (0, 7, 5),
 (5, 4, 6)
 );

var
 masm: array[1..5,1..3] of integer;
 i,j, max : integer;

begin
writeln('Matrix 5*3:');
for i:= 1 to 5 do
 begin
 for j:= 1 to 3 do
 write(mas[i,j]:2);
 writeln;
 end;


max:=1;
for i:= 1 to 5 do
 begin
 for j:= 1 to 3 do
 if max<mas[i,j] then max:=mas[i,j];
 end;

writeln('maximal element=', max);

readln;
end.

[Alex11223]

В прошлом задании же вроде было похожее. Просто кроме его значения

max:=mas[i,j];

надо запоминать в какие-нибудь две другие переменные его индексы.

[Form_13]

В строке:

if max<mas[i,j] then max:=mas[i,j];

нужно:

if max<mas[i,j] then 
 begin
  max:=mas[i,j];
  m:=i;
  l:=j;
 end;

И соответственно вывести в конце:

writeln('maximal element=', max,' stroka ,m,' stolbec ,'l);

[kuy]

Спасибо, розобрался =)