Nhập vào 1 xâu gồm họ và tên đệm của em tính và đưa ra màn hình a: tính độ dài xâu. b: chuyển xâu vừa nhập thành in hoa đưa ra màn hình. c: thay tên em bằng tên bạn. d: đếm trong xâu có bao nhiêu ký tự là chữ

uses crt;
var s,st:ansistring;
    i,d,d1:longint;
begin
clrscr; 
write('Nhap vao ho va ten dem cua em: ');readln(s);
writeln('a. do dai xau: ',length(s));
writeln('b. xau in hoa: ',upcase(s));
write('c. Nhap vao ho va ten dem cua ban: ');readln(st);
for i := 1 to length(s) do
 if (s[i] in ['a'..'z']) or (s[i] in ['A'..'Z']) then inc(d);
for i := 1 to length(st) do
 if (st[i] in ['a'..'z']) or (st[i] in ['A'..'Z']) then inc(d1);
writeln('d. ');
writeln(s,#13#10,'Co ',d,' ki tu chu');
writeln(st,#13#10,'Co ',d1,' ki tu chu');
readln;
end.