Помогите со строками,пожалуйста Опции

[nataly]

Определить сколько слов длинной К символов находится в строке.К вводится с клавиатуры.

[Lapp]

Наташ, попробуй как-то вот так:

  count:= 0;
  while Length(s)>0 do begin
    l:= Pos(' ');
    if l=0 then l:= Length(s)+1;
    if l=k+1 then Inc(count);
    Delete(s,1,l)
  end;
  writeln('total number of ',k,'-letter words is ',count);

Тут в качестве разделителей между словами допускается только пробел. Если тебе нужно, чтоб были допустимы знаки препинания - говори (в условии про это ничего нет).
Ввод строки и числа k сделай сама. Если будут трудности - спрашивай.
Успехов тебе.