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

Const
  n=10;
Var
  x: Array[1..n,1..n] of Integer;
  i,j,max: Integer;
BEGIN
Randomize;
max:=-Maxint;
Writeln('Матрица:');
For i:=1 to n do
begin
  For j:=1 to n do
  begin
    x[i,j]:=Random(20);
    If x[i,j]>max Then max:=x[i,j];
    Write(x[i,j]:4);
  end;
  Writeln
end;
Writeln('Максимальный = ',max);
Writeln('Индексы элементов равных максимальному;');
For i:=1 to n do
For j:=1 to n do
If x[i,j]=max Then
Writeln('[',i,';',j,']');
END.