Viết chương trình nhập vào một câu cho biết câu đó có bao nhiêu từ?

program dem_tu;

uses crt;

var st:string;

       d,i:byte;

begin

     clrscr;

     write('Nhap xau: ');   readln(st);

     d:=1;

     for i:=2 to length(st) do

          if st[i]=' ' then d:=d+1;

     write('Cau tren co ',d,' tu');

     readln;

end.