Pascal. Строки

[zzzarazzza]

Необходимо подсчитать количество слов в строке введённой с клавиатуры. Подразумевается, что слова друг от друга могут отделяться одним ли несколькими пробелами, при этом несколько пробелов могут располагаться в начале, в середине или в конце строки.

помогите написать код программы

[DRAgon™]

uses crt;
var s:String;
     i,c:integer;
begin
c:=0;
readln(s);
for i:=1 to length(s) do begin
if(i=1)Or(s[i]=' ') then c:=c+1;
end;
Writeln(c);
end.

[DRAgon™]

с точками,запятыми и.т.д напишешь сам

[Don Karleone]

Count:=0;
  while Length(st) > 0 do
    begin
      if st[1] = ' ' then Delete(st,1,1)
                     else
                         begin
                           Inc(Count);
                           c:=Pos(' ',st);
                           if c <> 0 then Delete(st,1,c)
                                     else Delete(st,1,Length(st));
                         end;
    end;
  writeln(Count);