Nhập xâu S từ bàn phím và thực hiện -tính chiều dài xâu s? -đếm số lần chữ cái xuất hiện trong xâu

uses crt;

var s: string;

i,d: byte;

begin

clrscr;

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

for i:=1 to length(s) do

if (s[i] in ['a'..'z']) or (s[i] in ['A'..'Z']) then d:=d+1;

writeln ('do dai cua xau s: ',length(s));

writeln ('so lan xuat hien cua chu cai trong xau: ',d);

readln;

end.

program bai_giai;

uses crt;

var s:string;

     i,j,d:byte;

     tg:char;

begin

      clrscr;

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

      writeln('Chieu dai cua xau la: ',length(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('Co ',d,' chu cai xuat hien');

      readln;

end.