http://delphibasics.ru/AnsiPos.php
Вот эта ссылка + алгоритмика:
пройтись циклом по строке
Код:
var
str:string;
begin
str:='01001 0101 10101 01 ';
For i:=1 to length(str) do
begin
if str[i]<>' 'then k:=k+1
else if k=5 then
begin
count:=count+1;
k:=0;
end;
к - переменная подсчёт символов от пробела до пробела
count - кол-во подстрок длинной в 5ть символов
В цикле организовать поиск "пробелов" и подсчёт знаков до ближайшего найденного.
Писал на коленке. 100пудова надо доводить до ума