Viết chương trình nhập vào một xâu cho biết trong sau có bao nhiêu phần tử là dấu cách

uses crt;
var s:string;
    i,dem:byte;
begin
   clrscr;
   write(‘Nhap xau: ‘); readln(s);
   for i:=1 to length(s) do
   if s[i]=’ ‘ then dem:=dem+1;
   writeln(‘So dau cach co trong xau la: ‘,dem);
   readln
end.