Đếm các chữ cái xuất hiện trong xâu

uses crt;
var s,a:string;
ch:char;
i,dem:byte;
begin
clrscr;dem:=0;
write('nhap xau s:');readln(s);
s:=upcase(s);
for ch:='A' to 'Z' do
begin
a:=ch;
if pos(a,s)<>0 then dem:=dem+1;
end;
writeln('so chu trong xau:',dem);
readln
end.