Определить индексы минимального и максимального элементов массива

begin
  var k := ReadInteger('k =');
  var n := ReadInteger('n =');
  var i := ReadInteger('i =');
  
  var a : array [,] of Integer;
  SetLength(a, k+i, n+i);
  Randomize;
  for var row := 0 to a.GetLength(0)-1 do
    for var col := 0 to a.GetLength(1)-1 do
      a[row, col] := random(10,99);
      
  WriteLn('Создан и заполнен случайными числами массив a[', a.GetLength(0), ',', a.GetLength(1), ']:');
  for var row := 0 to a.GetLength(0)-1 do
    begin
      for var col := 0 to a.GetLength(1)-1 do
        Print(a[row, col]);
      WriteLn;
    end;
    
  var minrow := 0; var mincol := 0; var maxrow := 0; var maxcol := 0;
  for var row := 0 to a.GetLength(0)-1 do
    for var col := 0 to a.GetLength(1)-1 do
      if a[minrow, mincol] > a[row, col] then
        begin minrow := row; mincol := col; end
      else if a[maxrow, maxcol] < a[row, col] then
        begin maxrow := row; maxcol := col; end;
 
  WriteLn(' Минимальный элемент: a[', minrow, ',', mincol, '] = ', a[minrow, mincol]);
  WriteLn('Максимальный элемент: a[', maxrow, ',', maxcol, '] = ', a[maxrow, maxcol]);
end.