VD 2: Viết chương trình nhập vào 1 xâu, sau đó đếm xem số lần xuất hiện mỗi ký tự trong xâu 
VD: THPT Quynh Luu 4
KQ: T:2 H:2 P:1 Q:1 U:3 Y:1 N:1 4:1 
Giải 
In hoa toàn bộ xâu .
Xét ký tự đầu s[1];
Đếm xem có bao nhiêu ký tự giống s1 trong xâu. 
Mỗi lần có s[i] =s[1] thì xóa đi s[i] để tránh lặp
Đếm hết thì ghi ra s[1] và đếm
Xóa s[1] chuyển đếm về 1.
Quay lại xét tiếp s[1];
CODE: 
VAR s:STRING;
i,d,j:INTEGER;  
PROCEDURE xuli;{ xu ly bai toan }
BEGIN          
IF s[1] <>#32 THEN 
BEGIN 
d:=1; j:=2;   
WHILE j<=length(s) DO  
IF s[j] = s[1] THEN 
BEGIN inc(d) ; delete(s,j,1); END 
ELSE inc(j);  
Write(s[1],' = ');
writeln(d);
delete(s,1,1);
END ELSE delete(s,1,1);
END;
BEGIN
Write('Nhap xau : ');
Readln(S);
FOR i:=1 TO length(s) DO
s[i]:=upcase(s[i]);
WHILE s<>'' DO
xuli;
Readln;
END.