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

uses crt;

var st:string;

      f1,f2:text;

      d:byte;

begin

        clrcsr;

        assign(f1,'vao.txt');reset(f1);

        assign(f2,'dulieu.txt');rewrite(f2);

        readln(f1,st);

        st:=st+' ';

        while pos(' ',st)<>0 do

                begin

                        inc(d);

                        delete(st,1,pos(' ',st));

                end;

        writeln(f2,d);

        close(f1);close(f2);

end.

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.