Строки в pacsal. Моя програмка непонятно что считает

[eka]

Задание такое: С клавиатуры вводиться строка,содержащая не более 60 символов. Отдельные слова отделены пробелами. Определить сколько слов длиной К символов находиться в строке. Значение К вводиться с клавиатуры.

program stroka;
const n=60; prob=' ';
var str,buf : string[n];
i,j : byte; (*параметры*)
k : integer; (*длина слова*)
s : byte; (*начало отсчёта*)
num : integer; (*сколько раз встретилось слово*)
begin
writeln('введите строку');
read(str);
writeln('какая длина слова вас интерисует?');
readln(k);
num:=0;
buf:=' ';
s:=1;
for j:=s to ord(str[0]) do begin
 for i:=s to ord(str[0]) do 
if str[i]=prob then begin s:=s+1; break;end
else buf:=buf+str[i];
if (ord(buf[0])-1)=k then num:=num+1;
s:=length(buf)+1;
buf:= ' ; end;
writeln('слово длиной', К:2,'символов встретилось',num:2,'раз');
end.

[AlDelta]

-//-

Добавьте еще замену цепочек внутренних пробелов на один пробел, если это потребуется.
Не до конца прочитал задание, мое решение не подходит.

[eka]

Спасибо=) Не подскажете, что в моей версии неверно?

Ага =) Я вроде где-то близко к истене. Но я вообще не пойму как у меня получается в результате программы совершенно не те цифры, даже не представляю что программа считает)

[Stilet]

Разбивка строки на слова:http://www.programmersforum.ru/showt...369#post398369
А потом по массиву пройдись и выясни длины слов. Или прямо в цикле выясняй длину очередного слова

[eka]

Извините, я всё равно не понимаю =(
Это немного не то...