Матрицы(Pascal)

[Poopy]

Найти наибольший элемент матрицы a[1..10][1..15],напечатать его и его координаты в матрице.

Помогите найти ошибку в нахождении наибольшего элемента и как напечатать его координаты.
if a[i,j]>max then -индекс находился вне границ массива

const
    n = 10;//строки
    m=15;//столбцы
var
    a: array[1..n,1..m] of integer;
    i,j,max:integer;
begin
randomize;

for i := 1 to n do //рандом
for j:=1 to m do
a[i,j]:=random(50);

for i:=1 to n do      //Вывод массива
begin
for j:=1 to m do
begin
write(a[i, j]:5);
end;
writeln
end;
end.


max:=a[1,1];//Максимальный
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    if a[i,j]>max then 
    max:=a[i,j];
    write(a[i,j]:4);
   end;
   end;
   writeln('Максимальный элемент=',max);

[FPaul]

a: array[1..n,1..m] of integer;
............

max:=a[1,1];//Максимальный
for i:=1 to m do
begin
for j:=1 to n do
begin
if a[i,j]>max then