убрать лишнее из программы

[dragun4ik]

uses crt;
var
n,q,num:integer;
s,w:string;
i:integer;
begin
clrscr;
write(' -> ');
readln(s);
w:=''; s:=s+' ';
i:=1; n:=0; q:=0; num:=0;
repeat
if s[i]<>' ' then w:=w+s[i]
else if w<>'' then
begin
inc(num);
if w[1]='a' then inc(n);
if pos('d',w)<>0 then inc(q);
w:='';
end;
i:=i+1;
until i>length(s);
writeln(' Количество слов в строке ',num);
writeln(' Количество слов начинающихся на букву а ',n);
writeln(' Количество слов имеющих хоть одну букву d ',q);
readln;
end.

было вот такое задание
Дана строка символов.Группы символов в ней между группами пробелов считаются словами .Подсчитать сколько слов:
а)Содержит данная строка
б)начинающихся на букву "а"
в)содержат хотя бы одну букву "d"

теперь надо убрать лишнее и сделать так чтобы программа только считала колличество слов в строке

[Alex Cones]

теперь надо убрать лишнее и сделать так чтобы программа только считала колличество слов в строке

Program A080;
Var
 Str : String[200];
 Cnt : Byte;
Begin
 Cnt := 0;
 WriteLn('Please, enter string and press "enter"');
 ReadLn(Str);
 While (Str <> '') do
  Begin
   While Pos(' ',Str) = 1 do Delete(S, 1, 1);
   If Pos(' ',Str) = 0 Then 
    Begin
     Inc(Cnt);
     Str:='';
    End
   Else
    Begin
     Delete(S, 1, Pos(' ',Str));
     Inc(Cnt);
    End;   
  End;
 Writeln('Count of words: ', Cnt);
 ReadLn;
End;

Вроде так, писал здесь, возможны ошибки.

[dragun4ik]

Спасибо за помощь