В данной квадратной целочисленной матрице порядка 5, указать индексы всех элементов с наибольшим значением ДЕЛФИ

[Maksim200032]

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

[newerow1989]

var i,j,max:integer;
    p:array[1..5,1..5] of integer;
begin
   Randomize;
   For i:=1 to 5 do
   begin
      For j:=1 to 5 do
      begin
         p[i,j]:=Random(21);
         Write(p[i,j]:2,'  ');
      end;
      Writeln;
   end;
   Writeln;
   max:=p[1,1];
   For i:=1 to 5 do
      For j:=1 to 5 do
         If max<p[i,j] then
            max:=p[i,j];
   For i:=1 to 5 do
      For j:=1 to 5 do
         If max=p[i,j] then
            Writeln(i,' x ',j);
   Readln;
end.