задача для настоящих умов)!

[Deco18]

буду признателен человеку который паможет решить мне задачку в Паскале----Определить,есть ли в заданной фразе слова из пяти букв(фраза любая)заранее спасибо,я в долгу перед вами

[Sazary]

uses crt;
const n = 5;
slovo = ['A'..'Z','a'..'z'];
var
s : string;
i,len,k : integer;
fl : boolean;
begin
clrscr;
writeln('Fraza: ');
readln(s);
len := length(s);
i:=1;
fl := false;
while i<=len do
  begin
  if s[i] in slovo then
    begin
    k := 0;
    while s[i] in slovo do
      begin
      inc(k);
      inc(i);
      end;
    if k = n then
      begin
      fl := true;
      break;
      end;
    end;
  inc(i);
  end;

if fl then writeln('Est slova iz ',n,' bukv')
else writeln('Net slov iz ',n, ' bukv');

readln;
end.

ничего интересного.
+ название темы не по правилам

[capta1n]

program cap;
const
 n = 5;
var
 str1 : string;
 sub : string[n+1];
 i,k,x : byte;
 bool : boolean;
begin

  writeln ('Vvedite frazu: ');
  readln(str1);
  str1:=str1+' ';
  while str1<>'' do
  begin
    bool:=false;
    x:=pos(' ',str1);
    sub:=copy(str1,1,x-1);
    k:=length(sub);
    if k=n then
     for i:=1 to n do
      if not (sub[i] in ['A'..'Z','a'..'z']) then
      begin
        bool:=false;
        break
      end
      else bool:=true;
    if bool then break;
    delete (str1,1,x)
  end;

  if bool then writeln ('Est'' slova iz ',n,' bukv')
          else writeln ('Net slov iz ',n,' bukv');

  readln;

end.

[capta1n]

для настоящих умов?? ) эт че сейчас пол-мира станут гениями? )