Выделить цветом все элементы матрицы, где в одном из разрядов встречается цифра 7

Var x:array[1..3,1..9] of integer;
  i,j:integer;
Begin
Randomize;
For i:=1 to 3 do
  begin
  x[i,9]:=0;
  For j:=1 to 8 do
    begin
    x[i,j]:=random(101);
    Write(x[i,j]:3);
    If (x[i,j] mod 10=7) or (x[i,j] div 10=7) then x[i,9]:=x[i,9]+1;
    end;
    Writeln;
  end;
WriteLn;
If (x[1,9]>x[2,9]) and (x[1,9]>x[3,9]) then Write('Наибольшее количество таких чисел в 1 строке');
If (x[2,9]>x[1,9]) and (x[2,9]>x[3,9]) then Write('Наибольшее количество таких чисел в 2 строке');
If (x[3,9]>x[1,9]) and (x[3,9]>x[2,9]) then Write('Наибольшее количество таких чисел в 3 строке'); 
End.

uses crt;
const m=3;
      n=9;
var x:array[1..m,1..n] of integer;
    i,j,k,mx,imx:integer;
begin
randomize;
mx:=0;
for i:=1 to m do
 begin
  k:=0;
  for j:=1 to n do
   begin
    x[i,j]:=random(101);
    if (x[i,j] mod 10=7) or (x[i,j] div 10=7) then
     begin
      inc(k);
      textcolor(12);
     end
    else textcolor(0);
    write(x[i,j]:3);
   end;
  if k>mx then
   begin
    mx:=k;
    imx:=i;
   end;
  writeln;
 end;
writeLn;
textcolor(0);
write('Наибольшее количество таких чисел в строке ',imx);
end.