Закрасить четное число суммы (только число, текст закрашивать не нужно)

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
    for var j := 1 to c do
      write(x[i, j]:4);
     sum:=summa(x[i],c);
     if not odd(sum)then textcolor(4) else textcolor(15);
    write(' Сумма = ', sum);
    write(i, ' ');
    writeln;
  end;  
end;
begin
  vvodf(m, 'm');
  vvodf(z, 'z');
  vvodm(massiv, m, z);
  vivod(massiv, m, z);
end.

procedure vivod(x: mass2; y, c: integer);
var sum:integer;
begin
  for var i := 1 to y do 
  begin
    write(i, ' ');
    for var j := 1 to c do
         write(x[i, j]:4);
    sum:=summa(x[i],c);
    write(' Сумма = ');
    if not odd(sum)then textcolor(Red);
    Write(sum);
    textcolor(LightGray);
    writeln;
  end;  
end;