viết chương trình nhập vào xâu s. đếm số kí tự trắng có trong xâu s( xâu tự cho)

program kitu_trang;

uses crt;

var s:string;

      i,d:byte;

begin

       clrscr;

       write(‘Nhap xau: ‘);   readln(s);

       d:=0;

       for i:=1 to length(s) do

              if s[i]=’ ‘ then d:=d+1;

       write(‘Co ‘,d,’ ki tu trang trong xau ‘,s);

       readln;

end.