работа со строками

[NAZE]

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

все что я смог написать:
procedure TForm1.Button1Click(Sender: TObject);
var h,n:integer;
begin
n:=strtoint (Edit1.Text);
SetLength (a,n);
for i:=0 to n-1 do
begin
edit1.Text:=inttostr(a[i]);
Edit2.Text:=edit2.Text+' '+Inttostr(a[i]);
begin
h:=0;
for i:=0 to n-1 do
if a[i] mod 2=0 then
h:=h+1;
Edit3.Text:=inttostr(h);
end;
end;
end;
end.

[xakkkkker]

вот кое что на скоряк набросал.