Напишите программу, которая создает прямоугольную матрицу, заполняет ее числами от -10 до 10

program Project1;
const
  maxelem = 20;
var
  a: array[1..maxelem,1..maxelem] of integer; { Переменная для хранения массива.}
  n: integer; { Переменные для хранения значения строк и столбцов двумерного массива. }
  i,j: integer; { Вспомогательные переменные для организации циклов.}
  maxvalue: integer; {Переменная для хранения значения максимального элемента массива}
  minvalue: integer; {Переменная для хранения значения минимального элемента массива}
  index1row,index1col: integer; {Переменные для хранения значений индексов максимального элемента}
  index2row,index2col: integer; {Переменные для хранения значений индексов минимального элемента}
begin
  Randomize;
  write('Введите значение размерности матрицы (не более ',maxelem,'): ');
  Readln(n);
  writeln('Исходный массив: ');
  for i:= 1 to n do
    begin
      for j:= 1 to n do
        begin
          a[i,j]:= random(21)-10; {Заполнение двумерного массива числами от -10 до 10}
          write(a[i,j]:5);    { Вывод двумерного массива в консоль.}
        end;
      Writeln;
    end;
 maxvalue:= a[1,1]; { Установка значения для поиска максимального элемента}
 index1row:= 1;
 index1col:= 1;
 minvalue:= a[1,1]; { Установка значения для поиска минимального элемента}
 index2row:= 1;
 index2col:= 1;
 for i:= 1 to n do
   for j:= 1 to n do
     begin
       if a[i,j] > maxvalue then  {Условие поиска максимального элемента}
         begin
           maxvalue:= a[i,j];
           index1row:= i;
           index1col:= j;
         end;
       if a[i,j] < minvalue then  {Условие поиска минимального элемента}
         begin
           minvalue:= a[i,j];
           index2row:= i;
           index2col:= j;
         end;
     end;
  writeln('Первый элемент матрицы с максимальным значением: а[',index1row,',',index1col,'] = ',maxvalue);
  writeln('Первый элемент матрицы с минимальным значением: а[',index2row,',',index2col,'] = ',minvalue);
  Readln;
end.