Viết công thức nhập từ bàn phím một xâu ký tự bất kỳ Hãy cho biết câu có bao nhiêu ký tự khoảng trắng

Program Hotboy ; 

uses crt;

var xau: string;

i,so: byte;

begin

clrscr;

So:=0;

Write('Nhap xau tu ban phim'); readln(xau);

For i:=1 to length(xau) do if xau[i]=' ' then so:=so+1;

writeln('So luong dau cach trong xau la',so);

Readln

End;

program oken;
uses crt;
var s: string;
    dem,i,n:integer;
begin
        clrscr;
        write('Nhap 1 xau bat ky: '); readln(s);
        dem:=0;
        for i:=1 to n do
                if s[i]=' ' then dem:=dem+1;
        if dem<>0 then
                writeln('Co ',dem,' khoang trang trong xau.')
        else
                writeln('Khong co khoang trang nao trong xau.');
        readln;
end.