Помогите написать программу на Паскале.

В целочисленной матрице размером 10x10 найдите максимальное значение и индексы всех элементов, равных ему.

var
ar: array[1..10,1..10] of integer;
i,j,max,count:integer;
begin
count:=1;
max:=0;
randomize;
for i:=1 to 10 do begin
for j:=1 to 10 do begin
ar[i,j]:=random(10)+1;
if (j mod 10=0) then writeln(ar[i,j]) else write(ar[i,j], );
if (ar[i,j] > max) then max:=ar[i,j];
end;
end;

for i:=1 to 10 do begin
for i:=1 to 10 do begin
for j:=1 to 10 do begin
if (ar[i,j] = max) then begin
writeln(Индекс ,count, элемента = ,i, ,j);
inc(count);
end;
end;
end;
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.