[friz]

Код:

var s:string;     //(введенная строка)
     i:integer;
    k:integer; //(количество пробелов )
....................
k:=0;
for i:=1 to length(s) do
begin
if s[i]=' ' then inc(k);
end;
label1.caption:='Всего '+inttostr(k)+' пробелов';