cho tệp vao.txt chứa 1 xâu kí tự bất kì viết chương trình đếm xem xâu đã cho có bao nhiêu từ , kết quả ghi vào tệp dulieu.txt

program dem_tu;

var f,g:text;

      s:string;

      i,d:byte;

begin

     Assign(f,’vao.txt’); reset(f);

     Assign(g,’dulieu.txt’);   rewrite(g);

     readln(f,s);

     d:=1;

     for i:=2 to length(s) do

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

     write(g,d);

     close(f);  close(g);

end.