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

[kirilka]

Дана символьная строка. Слово-последовательность символов между пробелами, не содержащие пробелы внутри себя. Определить количество слов заданной длины.

[Hacker19_90]

s := s + ' ';
i := 1;
count_simv := 0;
while  i <= length(s) do
begin
    if s[i] <> ' ' then Inc(count_simv)
    else
        begin
            if count_simv = kol_simv then Inc(count_word);
            count_simv := 0;
        end;
end;
Writeln (count_word);