В матрице указать строку, содержащую минимальный элемент, оканчивающийся на цифру k

procedure OutTable(T : array [,] of Integer);
begin
  var D := 1;
  for var Row := 0 to T.GetLength(0)-1 do
    for var Col := 0 to T.GetLength(1)-1 do
      D := max(D, T[Row, Col].ToString.Length);
  D += 1;
  for var Row := 0 to T.GetLength(0)-1 do
    begin
      for var Col := 0 to T.GetLength(1)-1 do
        Write(T[Row, Col]:D);
      WriteLn;
    end;
end;
 
begin
  var Rows := ReadLnInteger('  Строк в таблице =');
  var Cols := ReadLnInteger('Колонок в таблице =');
  
  var T : array [,] of Integer;
  SetLength(T, Rows, Cols);
  Randomize;
  for var Row := 0 to Rows-1 do
    for var Col := 0 to Cols-1 do
      T[Row, Col] := Random(0, 999);
  WriteLn('Таблица заполнена случайными числами от 0 до 999:');
  OutTable(T);
  
  var K := ReadLnInteger('Введите цифру (0..9)= ');
  if Not(K in [0..9]) then Halt;
  
  var minVal := 1000 + K;
  var minRow := 0;
  var minCol := 0;
  for var Row := 0 to Rows-1 do
    for var Col := 0 to Cols-1 do
      if (T[Row, Col] mod 10 = K) and (minVal > T[Row, Col]) then
        begin
          minVal := T[Row, Col];
          minRow := Row;
          minCol := Col;
        end;
  Write('Строка, содержащая минимальный элемент,', NewLine, ' оканчивающийся на ', K);
  if minVal = 1000 + K then
    WriteLn(' в таблице не найдена.')
  else
    WriteLn(' находится в строке ', minRow+1);
end.