Viết chương trình nhập vào một xâu cho biết xâu đó có bao nhiêu kí tự không phải là dấu cách

program khong_phai_cach;

uses crt;

var s:string;

      i,d:byte;

begin

       clrscr;

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

       d:=0;

       for i:=1 to n do

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

       write(‘Co ‘,d,’ ki tu khong phai dau cach’);

       readln;

end.