Переорганизовать ввод элементов массива с учетом задания.

[Настяyu]

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

Program Z2;
Type
matrix=array[1..100, 1..100] of real;
mass=array[1..100] of real;
Var
matrica: matrix;
row: mass;
column: mass;
i,j,M,N,row_index,column_index: integer;
max_value:real;
begin
write('Матрица порядка 17');
writeln;
N := 17;
M := 17;
for i:=1 to N do
begin
for j:=1 to M do
begin
matrica[i,j] := random(200) - 100;
end;
end;
writeln('Введенная матрица:');
for i:=1 to N do
begin
for j:=1 to M do
begin
write(' ',matrica[i,j]);
end;
writeln;
end;
max_value := -100;
row_index := 0;
column_index := 0;
for i:=1 to N do
for j := 1 to M do
if max_value < matrica[i,j] then
max_value := matrica[i,j];
writeln('max_value:', max_value);
for i:=1 to N do
begin
for j := 1 to M do
begin
if matrica[i,j] = max_value then
begin
inc(row_index);
inc(column_index);
row[row_index] := i;
column[column_index] := j;
end
end
end;
writeln('Индексы элементов с наибольшим значением:');
for i := 1 to row_index do
begin
writeln('[', row[i], ',', column[i],']');
end
end.