Viết chương trình nhập xâu s, đếm từ của xau s và xuất ra các từ đó Vd: Input: Nguyen Van Bao Output: 3 Nguyen Van Bao

Program NN;
Uses crt;
Var St: String;
    i,d: longint;
Begin
        Clrscr;
        Write('Nhap St: '); Readln(St);
        While St[1]=#32 do Delete(St,1,1);
        While St[length(St)]=#32 do Delete(St,length(St),1);
        While Pos(#32#32,St)<>0 do Delete(St,Pos(#32#32,St),1);
        d:=1;
        For i:=1 to length(St) do
                If St[i]=#32 then inc(d);
        Writeln(d);
        For i:=1 to length(St) do
                If St[i]<>#32 then Write(St[i])
                Else Writeln;
        Readln
End.

Uses crt;
Var S: String;
    i,dt: longint;
Begin
        Clrscr;
        Write('S: '); Readln(S);
        For i:=1 to length(St) do
                If S[i]=' ' then inc(dt); writeln(dt);
        For i:=1 to length(St) do
             Begin Write(S[i]);
                If s[i]=' ' then Writeln;

End;
Readln;
End.