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

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

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