const  s='a1 bb2 c3 dd4 e5';
function f1(s: string): word; 
var j,k: word;
BEGIN
  j:=0;
  repeat k:=pos(' ',s);
         if k>0 then delete(s,1,k);
         inc(j);
   until k=0;
  f1:=j;
END;
BEGIN
  writeln('Рядок "',s,'" містить таку кількість слів: ',f1(s));
END.