Viết chương trình nhập vào 1 xâu có độ dài không quá 100 kí tự. Đếm số dấu cách có trong xâu

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.

program oken;
uses crt;
var s: string[100];
    i,dem:byte;
begin
        clrscr;
        write('nhap 1 xau bat ky: '); readln(s);
        for i:=1 to length(s) do
                if s[i]=' ' then
                        dem:=dem+1;
        writeln('so dau cach co trong xau: ',dem);
        readln;
end.