viết chương trình nhập vào một xâu chuẩn ( không có dấu cách thừa ở đầu xâu cuối xâu , giữa các từ ) hãy đếm xem xâu đó có bao nhiêu kí tự và bao nhiêu từ giúp với ạ :>>>>

Do đây là xâu chuẩn nên chúng ta chỉ cần đếm xem từng phần tử của xâu s có nằm trong khoảng từ 'a'→'z'; 'A'→'Z'; '0'→'9' hay không để đếm kí tự. Và không có dấu cách thừa vậy nên mình chỉ cần đếm <dấu cách> từ đó ⇒ số từ

Chương trình:

Program dem;
Uses crt;
Var s: string;
i,tu, kt: integer;
Begin 
clrscr;
Write('Nhập xâu: ');Readln(s);
kt := 0;
tu := 0;
For i := 1 to length(s) do
    if s[i] in ['a'..'z']+['A'..'Z']+['0'..'9']
    then kt := kt + 1;
For i := 1 to length(s)-1 do
    if s[i] = ' ' then tu := tu + 1;
Writeln('Ky tu: ',kt);
Writeln('Tu: ',tu);
Readln;
End.