Delphi7. Найти количество групп с пятью символами.

[Засоня]

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

[ОДИНОЧЕСТВО В СЕТИ]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
   s:string;
  dl,i,l,k:integer;
  begin
    writeln('input text');
    readln(s);
    k:=0;
    l:=length(s);       {строковая функция}
    dl:=0;              {длина текущего слова}
    for i:=1 to l do   {цикл}
      begin
        if s[i]<>' ' then
          begin
            dl:=dl+1;
          end
        else
          begin
            if (dl=5) then
              begin
                inc(k);
              end;
            dl:=0;
          end;
        end;
      writeln(k);
      readln;
   end.

[pesi]

можно так

procedure TForm1.Button5Click(Sender: TObject);
var
ss:string;
t: TStringList;
i, u :integer;
begin
u:=0;
ss:=edit4.text;  //строка символов
t := TStringList.create;
t.text := stringReplace(ss, ' ', #13#10, [rfReplaceAll]);
 if t.Count>=1 then
  begin
   for i:=1 to t.Count do
    begin
     if length(t[i-1]) = 5 then
     inc(u);
    end;
   showmessage('Количество групп с пятью символами = '+inttostr(u));
 end
 else
 showmessage('Количество групп с пятью символами = '+inttostr(u));
t.free;
end;