Решите пожалуйста очень маленькую задачу на Delphi!

[Dio]

Дана строка, состоящая из групп нулей и единиц. Каждая группа отделяется от другой одним или несколькими пробелами. Найти количество групп с пятью символами.

[AiK]

Вариант:

Код: Выделить всё

j:=0; i:=1;
  while (Length(s) > 3) and (i >0 )do
  begin
      i:=Pos(' ',S);
      if i > 5 then inc(j);
      Delete(s, 1,i);
  end;