Помогите решить задачу на строки Опции

[wary]

Дана строка символов до точки. Группы символов в ней можду одним пробелом считаются словами. Удалить из нее каждое слово четной длины.

[sofware]

Вот мой код:

var a,b:string;
    i,j,n,l,k:integer;
    s:array[1..100]of string;
begin
 read(a);j:=0;
 b:='';
 l:=length(a);
 while a<>'' do
  begin
   inc(j);
   n:=pos(' ',a);
   if n<>0 then for i:=1 to n-1 do
    s[j]:=s[j]+a[i];
   delete(a,1,n);
   if n=0 then begin s[j]:=a;delete(a,1,length(a));end;
  end;
 delete(s[j],length(s[j]),1);
 for i:=1 to j do
 if length(s[i])mod 2=1 then b:=b+s[i]+' ';
 if b[length(b)]=' ' then delete(b,length(b),1);
 if b[length(b)]<>'.' then b:=b+'.';
 write(b);
 end.