bai tap sau ki tu trong pascal

[Le Nhieu]

Anh oi giup em giai bai tap nay nhe!

Viet chuong trinh nhap tu ban phim mot sau ki tu S va thong bao ra mang hinh so lan xuat hien cua moi chu cai tieng Anh trong S (khong phan biet chu hoa hay chu thuong)


Cam on anh nhieu!!!

[nbni]

var s:string;
i:char; j,dem:integer;
begin
readln(s);
for j:=1 to length(s) do s[j]:=upcase(s[j]);
for i:='A' to 'Z' do
begin
for j:=1 to length(s) do
if s[j]=i then inc(dem);
if dem>0 then write(i,dem,' ');
dem:=0;
end;
end;
readln
end.

[Le Nhieu]

cam on nhieu nha!!!!!!!!!!!!