Viết chương trình nhập vào một xâu tính và đưa ra màn hình số lượng các kí tự trống trong xâu? Ai biết giúp mình với ạ

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.

Program FNG;
Uses crt;
Var St: String;
    i,d: longint;
Begin
        Clrscr;
        Write('Nhap St: '); Readln(St);
        d:=0;
        For i:=1 to length(St) do
                If St[i]=#32 then inc(d);
        Write(d);
        Readln
End.