Дана матрица целых чисел A[3х3]. Её элементы заполняюся случайно( RANDOM, диапазон от 0 до 10).

uses crt;
const n=3;
var a:array [1..n,1..n] of integer;
    i,j,max,min,imax,jmax,imin,jmin:integer;
begin
  randomize;
  for i:=1 to n do
    begin
      for j:=1 to n do
        a[i,j]:=random(11);
    end;
  for i:=1 to n do
    begin
      for j:=1 to n do
        write(a[i,j],' ');
        writeln;
    end;
  max:=a[1,1]; min:=a[1,1]; imax:=1; jmax:=1; imin:=1; jmin:=1;
  for i:=1 to n do
    begin
      for j:=1 to n do
        if max<a[i,j] then
          begin
            max:=a[i,j];
            imax:=1; jmax:=j;
          end;
        if min>a[i,j] then
          begin
            min:=a[i,j];
            imin:=i; jmin:=j;
          end;
    end;
  writeln('Максимальный элемент равен ',max,' Его координаты ',imax,jmax);
  writeln('Минимальный элемент равен ',min,' Его координаты ',imin,jmin);
  readln;
end.

const n=3