Cho xâu S , hãy tách và đếm xem trong xâu có bao nhiêu từ . VD: I Love You gồm có 3 kí tự và 8 từ

var s: string;

p: array[1..10] of string;

i,k,dem: byte;

begin

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

k:=1;

For i:=1 to length(s) do

If s[i] <> #32 then

p[k]=p[k]+s[i]

else k=k+1;

For k=1 to 50 do

If p[k] <> "" then dem=dem+1;

write('Co ',dem,' tu');

readln

end.