помогите, пожалуйста!

Вот такая задача:

Дана строка S, состоящая из n символов. Группы символов разделены одним или несколькими пробелами. Не содержащие пробелов внутри себя группы символов считать словами. Определить количество пробелов между всеми словами строки.

program str;
uses crt;
var
probel,s,n:integer;
st:string [n];
buf:string;
slova:array [1..100] of string;
begin
clrscr;
readln(st);
count:=1;
repeat
if (st[1]=' ') or (length(st)=1) then while st[1]=' ' do delete(st,1,1)
else
begin
while (st[1]<>' ') and (length(st)>1) do
begin
buf:=buf+st[1];
delete(st,1,1);
end;
slova[count]:=buf;
buf:='';
inc(count);
end;
until (length(st)=1) and (length(buf)=0);

Не совсем в этом уверена и незнаю что делать дальше. Помогите