Строки

[Юрии Александрович]

Ребят подскажите как можно проверить входит ли буква в каждое слово строки?

[Plague]

var s:string;
    a:char;
    i,k,n:integer;
    f,g:boolean;
begin
  readln(s);
  s:=' '+s+' ';
  f:=false;
  k:=0;
  n:=0;
  readln(a);
  for i:=1 to length(s)-1 do
    begin
     if (s[i]=' ')and(s[i+1]<>' ') then
       begin f:=true;n:=n+1;g:=true; end;
     if (s[i]=a)and(f)and(g) then
       begin k:=k+1; g:=false; end;
     if (s[i]<>' ')and(s[i+1]=' ') then f:=false;
    end;
  writeln(k=n);
end.

[andrey4623]

кароч просто перебираешь все слова, и в каждом слове следишь за буквой. Как только в этом слове нет требуемой буквы то сразу выходишь