Дан двумерный массив размерностью 8х12, инициализированный целочисленными значениями из диапазона от -20 до +80

const
  n = 8;
  m = 12;
 
var
  a: array[1..n, 1..m] of integer;
  k, mini, minj, j, i: integer;
 
begin
  randomize;
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i, j] := -20 + random(101);
      write(a[i, j]:4);
    end;
    writeln;
  end;
  k := 0;
  mini := 0;
  minj := 0;
  for i := 1 to n do
  begin
    for j := 1 to m do
      if not odd(a[i, j]) then
      begin
        inc(k);
        mini := i;
        minj := j;
        break;
      end;
    if k <> 0 then
      break;
  end;
  for i := 1 to n do
    for j := 1 to m do
      if (not odd(a[i, j])) and (a[i, j] < a[mini, minj]) then
      begin
        mini := i;
        minj := j;
      end;
  writeln('Минимум среди четных: ', a[mini, minj]:4, ' строка: ', mini:4, ' столбец: ', minj:4);
end.

begin
  var a:= MatrRandom(8, 12,-20,80).Println;;
  var MinValue := a.ElementsByRow.Where(t->t.IsEven).Min;
  var b := a.ElementsByRow.ToArray.FindIndex(t -> t = MinValue);
  var (x,y) := ( (b + 1) div 12, b mod 12);
  $'Минимальный четный ({x+1},{y+1}) = {a[x,y]}'.Println;
end.

begin
  var a := MatrRandom(8, 12, -20, 80).Println;
  try
    a.ElementsWithIndices.Where(i -> i[0].isEven).Min.Print
  except
    Print('нет такого элемента')
  end
end.