viet chuong trinh nhap xaâu bất kì tính số lần xuất hiện khoảng trắng(dấu cách)

uses crt;
var s:string; i,d:byte;
begin
clrscr;
   write(‘Nhap xau S: ‘);readln(s);
   d:=0;
   for i:=1 to length(s) do 
      if s[i]=’ ‘ then inc(d); 
   writeln(‘Co ‘,d,’ dau cach trong xau vua nhap’);
readln
end.