Nếu có sai thì bạn nói mình nhé.
================================
program Hello;
uses crt;
var tong,d,i,a,b:longint;
s,s1,s2,s3:string;
begin
clrscr;
readln(s);
for i:= 1 to length(s) do
begin
if (s[i] <= '9') and (s[i] >= '0') then
begin
s2:= s2 + s[i];
val(s[i],a,b);
tong:=tong+a;
end
else if (s[i] in ['a'..'z']) or (s[i] in ['A'..'Z']) then
s1:= s1 + s[i]
else if s[i] <> ' 'then
s3:= s3 + s[i];
if s[i] = ' ' then
d:= d+1;
end;
writeln('S1: ', s1);
writeln('S2: ', s2);
writeln('S3: ', s3);
writeln('Xau S co ', length(s1), ' ky tu chu cai.');
writeln('Xau S co ', length(s3), ' ky tu dac biet.');
writeln('Xau S co ', d, ' ky tu khoang cach.');
writeln('Tong cac ky tu chu so: ', tong);
readln;
end.