помогите решить задачу на паскале. матрицы

[SkilL]

В даной квадратной йелочисленной матрице порядка 17 указать индэксы всех элементов с найбольшим значением

[Naeel Maqsudov]

Код: Выделить всё

//сначала ищется максимум
Max:=A[1,1];
for i:=1 to 17 do for j:=1 to 17 do if A[i,j]>Max then Max:=A[i,j];
//потом индексы всех таких элементов
writeln("Значение ",Max," находится в позиции(ях):");
for i:=1 to 17 do for j:=1 to 17 do if A[i,j]=Max then writeln(i,",",j);

[SkilL]

спс уже сделал