Четные элементы суммы закрасить с использованием GraphAbc

uses crt;
 
const;
  n = 15;
 
type
  mass1 = array[1..n] of integer;
  mass2 = array[1..n] of mass1;
 
var
  massiv: mass2;
  m, z: integer;
 
procedure vvodf(var x: integer; s: string);
begin
  repeat
    write('Vvedite ', s, '=');
    readln(x);
  until(x > 0) and (x <= n);
end;
 
procedure vvodm(var x: mass2; y, c: integer);
begin
  for var i := 1 to y do
    for var j := 1 to c do
      x[i, j] := random(201) - 100;
end;
 
function summa(x: mass1; y: integer): integer;
var
  sum: integer;
begin
  sum := 0;
  for var i := 1 to y do
    sum := sum + x[i];
  summa := sum;
end;
 
procedure vivod(x: mass2; y, c: integer);
var
  sum: integer;
begin
  for var i := 1 to y do 
  begin
    write(i:2, ' ');
    for var j := 1 to c do
      write(x[i, j]:4);
    sum := summa(x[i], c); 
    write(' Сумма = ');
    if not odd(sum) then System.Console.ForegroundColor := System.ConsoleColor.Red;
    writeln(sum);
    System.Console.ForegroundColor := System.ConsoleColor.White;
    
  end;  
end;
 
begin
  vvodf(m, 'm');
  vvodf(z, 'z');
  vvodm(massiv, m, z);
  vivod(massiv, m, z);
end.