Вывести на экран сформированный массив, выделив цветом (мерцанием) указанные в варианте элементы

uses crt;
const nmax=9;
var a:array[1..nmax,1..nmax] of string;
    m,n,k,l,i,j,r,p:byte;
    s:string;
    ch:char;
    c:set of char;
begin
clrscr;
repeat
write('Количество строк до ',nmax,' m=');
readln(m);
until m in[1..nmax];
repeat
write('Количество столбцов до ',nmax,' n=');
readln(n);
until n in[1..nmax];
repeat
write('Мимальная длина слов от 1 до 6 k=');
readln(k);
until k in [1..6];
repeat
write('Максимальная длина слов от ',k,' до 7 l=');
readln(l);
until l in [k..7];
c:=[];
writeln('Введите прописные латинские буквы для выделения, окончание ввода Enter:');
repeat
ch:=readkey;
if ch in ['A'..'Z'] then
 begin
  write(ch);
  c:=c+[ch];
 end;
if ch=#13 then writeln;
until ch=#13;
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    r:=k+random(l-k+1);
    s:='';
    for p:=1 to r do
    s:=s+chr(65+random(26));
    while length(s)<l do s:=s+' ';
    a[i,j]:=s;
    for p:=1 to length(a[i,j])do
     begin
      if a[i,j][p] in c then  textcolor(12+128) else textcolor(15);
      write(a[i,j][p]);
     end;
    write(' ');
   end;
  writeln
 end;
readln
end.

uses crt;
const nmax=9;
var a:array[1..nmax,1..nmax] of string;
    m,n,k,l,i,j,r,p:byte;
    s,st:string;
 
begin
 
repeat
write('Количество строк до ',nmax,' m=');
readln(m);
until m in[1..nmax];
repeat
write('Количество столбцов до ',nmax,' n=');
readln(n);
until n in[1..nmax];
repeat
write('Минимальная длина слов от 1 до 6 k=');
readln(k);
until k in [1..6];
repeat
write('Максимальная длина слов от ',k,' до 7 l=');
readln(l);
until l in [k..7];
writeln('Введите прописные латинские буквы для выделения:');
readln(st);
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    r:=k+random(l-k+1);
    s:='';
    for p:=1 to r do
    s:=s+chr(65+random(26));
    while length(s)<l do s:=s+' ';
    a[i,j]:=s;
    for p:=1 to length(a[i,j])do
     begin
      if pos(a[i,j][p],st)>0 then TextAttr:=16*LightGray+Yellow
      else TextAttr:=16*White+Black;
      write(a[i,j][p]);
     end;
    write(' ');
   end;
  writeln
 end;
end.

uses crt; 
const 
  K=2;  
  L=7;  
  M=20; 
  N=10; 
  AA=Ord('A');           {код буквы А в таблице символов} 
  ZZ=Ord('Z');            {код буквы Z в таблице символов} 
 gl=['A','E','I','O','U','Y']; 
 sgl=['B','C','D','F','G','H','J','K','L','M','N','P','Q','R','S','T','V','W','X','Z']; 
var 
  mas:  array [1..M,1..N] of string[L]; 
  i,j,t,p,q, {счетчики циклов} 
  len,           {длина текущей строки=элемента матрицы (K..L)} 
  ss,kg,ks, {кол. букв в столбце, кол. гласных и согласных в слове} 
  kol: byte;              {кол-во слов, удовлетвлоряющих условию } 
begin 
clrscr; 
randomize; 
for i:=1 to M do 
for j:=1 to N do 
     begin 
       len:=random(L-K+1)+K; 
       mas[i,j]:='';             {строка соответствующая сначала пустая} 
    for t:=1 to len do          {затем добавляем по одному к ней символы в количестве len} 
    mas[i,j]:=mas[i,j]+Char(random(ZZ-AA+1)+AA);         {псевдослучайные от A до Z} 
  end; 
TextColor(0); {цвет текста по умолчанию} 
kol:=0; {пока не нашли ни одного подходящего слова} 
for j:=1 to N do {идем по столбцам} 
  begin 
    ss:=0; 
    for i:=1 to M  do {считаем буквы в столбцах} 
    ss:=ss+length(mas[i,j]); 
    if ss mod 3=0 then{если кратно 3} 
      for p:=1 to M do {снова по этому столбцу} 
          begin 
            kg:=0;ks:=0; 
            for q:=1 to length(mas[p,j]) do {смотрим каждое слово} 
               begin 
                if mas[p,j][q] in gl then kg:=kg+1; {считаем гласные} 
                if mas[p,j][q] in sgl then ks:=ks+1; {считаем согласные} 
               end; 
            if kg*5<=ks then {если согласных в 5 раз больше} 
              begin 
               TextColor(red);                  {меняем цвет на красный} 
                     write(mas[p,j]:8);                 {выводим красным} 
                     kol:=kol+1;   {считаем количество} 
               TextColor(15);  {цвет по умолчанию} 
              end 
            else write(mas[p,j]:8); {выводим обычные слова в этом столбце} 
          end 
     else 
       for i:=1 to M do 
       write(mas[i,j]:8); {выводим обычным столбцы где сумма букв не кратна 3} 
  end; 
window(50,23,78,25);{новое окно} 
TextBackGround(14); {цвет фона} 
TextColor(15); {цвет текста} 
readln; 
clrscr; 
write('Kolichestvo slov=',kol);{это надо в отдельном окне} 
readln 
end.

uses crt;
const nmax=9;
var a:array[1..2*nmax,1..nmax] of string;
    m,n,k,l,i,j,r,p:byte;
    s,st:string;
 
begin
 
repeat
write('Количество строк до ',2*nmax,' m=');
readln(m);
until m in[1..2*nmax];
repeat
write('Количество столбцов до ',nmax,' n=');
readln(n);
until n in[1..nmax];
repeat
write('Минимальная длина слов от 1 до 6 k=');
readln(k);
until k in [1..6];
repeat
write('Максимальная длина слов от ',k,' до 7 l=');
readln(l);
until l in [k..7];
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    r:=k+random(l-k+1);
    s:='';
    for p:=1 to r do
    s:=s+chr(65+random(26));
    while length(s)<l do s:=s+' ';
    a[i,j]:=s;
    if(i mod 3=0)and not(a[i,j][r] in ['A','E','I','O','U',' '])
    then TextAttr:=16*LightGray+Yellow
    else TextAttr:=16*White+Black;
    write(a[i,j]:l+1);
   end;
  writeln
 end;
end.