[lmikle]

Ага, а потом вот такие, которым не надо учиться, получают диплом, за которым кроме пальцев ничего нету. Здесь люди помогают тем, кто сам себе помогает. Тем более, что для решения твоей задачи я тебе подсказал бльше половины.

Код:

function CountWords(AText : String; ALen : Integer) : Integer;
var
  Buf : String;
begin
  Result := 0;
  While Pos(' ',AText) > 0 Do
    Begin
      Buf := Copy(AText,1,Pos(' ',AText)-1);
      If Length(Buf) = ALen Then Inc(Result);
      AText := Copy(AText,Pos(' ',AText)+1,Length(AText)-Pos(' ',AText));
    End;
  If Length(AText) = ALen Then Inc(Result);
end;

Ну и сильно тебе этот код поможет?