// PascalABC.NET 3.4, сборка 1767 от 27.08.2018
// Внимание! Если программа не работает, обновите версию!

uses GraphABC;

procedure ColorPrint(a: array[,] of integer);
begin
  var s := a.ElementsByRow;
  var (min, max) := (s.Min, s.Max);
  var DefColor := FontColor;
  font.Name := 'Courier New';
  for var i := 0 to a.RowCount - 1 do
  begin
    for var j := 0 to a.ColCount - 1 do
      if a[i, j] = min then
      begin
        Font.Color := clRed;
        Write(a[i, j]:4);
        Font.Color := DefColor
      end
      else
      if a[i, j] = max then
      begin
        Font.Color := clGreen;
        Write(a[i, j]:4);
        Font.Color := DefColor
      end
      else Write(a[i, j]:4);
    Writeln
  end
end;

begin
  var a := MatrRandom(5, 5, -10, 10);
  ColorPrint(a)
end.