Viết chương trình nhập xâu bất kì từ bàn phím .Hãy cho biết có bao nhiêu kí tự chữ cái có trong xâu

uses crt;

var s:string;i:longint;

begin

clrscr;

readln(s);

d:=0;

for i:=1 to length(s) do if (s[i] in [‘a’..’z’])  or (s[i] in [‘A’..’Z’]) then d:=d+1;

write(d);

readln;

end.