Pascal ABC.net Матрица 3x5 вывод на экран

[C_i_K_a_D_a]

Помогите пожалуйста ! Не могу понять как вывести позицию макс. элемента матрицы! Как можно облегчить
программу? Я новичок в этом деле Спасибо!
Написать программу:
1)определить матрицу 3х5
2)вывести ее на экран
3)определить величину макс элемента матрицы и вывести на экран его значение и позицию в матрице

const
N = 3;
M = 5;
var
Table : array [1..N , 1..M] of integer;
i , j , max :integer;
begin
max := 0;
randomize;
for i := 1 to N do
for j := 1 to M do
Table [i , j] := random (100);

for i := 1 to N do
begin
for j := 1 to M do
write(Table[i , j]:5);
writeln
end;
for i := 1 to N do
begin
for j := 1 to M do
if Table[i , j] > max then
max := Table[i , j];
end;
writeln('Максимальный элемент в массиве : ', max);
writeln('Его позиция в матрице : ');
end.

[newerow1989]

var im,jm:integer;
***

max:=Table[1,1];
im:=1;
jm:=1;

for i := 1 to N do
 begin
 for j := 1 to M do
 if Table[i , j] > max then
begin
 max := Table[i , j];
 im:=i;
 jm:=j;
end;
 end;
***
writeln('Его позиция в матрице : ',im,' ',jm);

[C_i_K_a_D_a]

Спасибо вам большое ! Теперь все ясно , как оно должно было быть)

[newerow1989]