С клавиатуру вводится строка. Определить в ней количество пробелов

var a,b,c:integer;   
 d:string;   
begin;
b:=0;writeln('введите строку');
readln(d);
for a:=1 to length(d) do begin
if (d[a]=' ') then b:=b+1;end;
writeln('количество пробелов в строке ==> ', b);
end.

var s:string;n,k:integer;
begin
s:= 'Проба она проходит первый раз и можем выполняться';// несколько раз';
n:=1;
while n>0 do begin
n:= pos(' ',s);k:=k +1;delete(s,1,n);end;
write(k-1);end.