решение Задачек в Паскаль

[ЛидочкаНенаглядки]

Люди спасайте срочно нужно решить....

Выделить цветом и подсчитать число слов удовлетворяющих следующим условиям.
1. слово содержит хотя бы 3 рядом стоящие согласные буквы.
2. Слово принадлежит строке, в которой суммарное число гласных букв более 7.

[capta1n]

program p1;
uses crt;
const
 sogB = ['B'..'Z'];
 sogm = ['b'..'z'];
var
 n : string;
 wrd : string[20];
 ch : set of char;
 i,kol : byte;
begin
 clrscr;
 TextColor(15);
 writeln ('Vasha Stroka: ');
 readln (n);
 n:=n+' ';
 ch:=sogB+sogm;
 ch:=ch-['E','e','U','u','I','i','O','o'];
 kol:=0;
 while n<>'' do
 begin
   wrd:=copy(n,1,pos(' ',n));
   for i:=1 to length(wrd) do
    if (wrd[i] in ch) and (wrd[i+1] in ch) and (wrd[i+2] in ch) then
    begin
      TextColor(2);
      kol:=kol+1;
      break
    end;
   write (wrd);
   delete (n,1,pos(' ',n));
   TextColor(15)
 end;
 writeln;
 writeln ('kolvo= ',kol);
 readln
end.

[дайкири]

Даны три номерных знака автомашин.Найти номерной знак,содержащий буквы "МОН",и вывести его на печать.Если такого знака среди заданных нет,то напечатать соответствующее сообщение