Двумерные массивы

[Poopy]

Составить программу,заполняющую двумерный массив,состоящий из 8 строк и 10 столбцов случайными числами,и выводящую его на экран в форме таблицы.Элементы,стоящие на пересечении четных строк с четными столбцами, выделить другим цветом.

Помогите выделить элементы цветом

uses crt;
const
    n = 10;//строки
    m=8;//столбцы
 

var
   
a: array[1..n,1..m] of integer;
 i,j:integer;
 begin
        
        randomize;
        for i := 1 to n do
        for j:=1 to m do
        a[i,j] := random (9);
            
            
  for i := 1 to n do
  for j:=1 to m do
        if (i mod 2) = 0 then
  



  
 
end.

[Stilet]

  for i := 1 to n do begin
   for j:=1 to m do begin
    if ((i mod 2) = 0) and ((j mod 2)=0) then setcolor(green) else setcolor(white);
    write(a[i,j]:5);
   end; writeln;
  end;

Устраивает?