Nhập 1 xâu từ bàn phím,viết chương trình đếm các kí tự trống trong xâu

  Program Hotboy ;

  Uses crt;

  var Hb:string;

  i,d:byte;

  Begin

  Clrscr;

   D:=0;

   Write('Nhap xau tu ban phim ');         

   Readln(Hb);

   For i:=1 to length(Hb) do

   if (Hb[i]=' ') then inc(d);

   Write('So ki tu trong trong xau do la: ',d);

   Readln

   End.

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 inc(dem);
   write('So luong ky tu trong trong xau la: ',dem);
   readln
end.