задача на строки

[BERT]

составить программу подсчитывающую кол-во тех слов в строке из n букв, в которых третьей явл-ся заданная буква

[Stilet]

Могу такое предложить:

 var k,s:string;n,e,i:integer;c:char;
begin
 n:=3;c:='f';
 s:='Haf im Brooke Burke from Need Fof Speed Underground';
 s:=s+' ';
 i:=pos(' ',s);
 while i<>0 do begin
  k:=copy(s,1,i-1);delete(s,1,i);
  if (length(k)=n)and(k[3]=c) then
   writeln(k);
  i:=pos(' ',s);
 end;
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.