Как сделать данную задачу?

Question

Для заданного текста указать, сколько раз встречается каждый символ этого текста в тексте. 
 
PascalABC

Алёна · Accepted Answer

var 
temp,text:string; 
x:integer; 
 
function kol_sim(sim,t:string):integer; 
var l,c:integer; 
Begin 
 c:=0; 
 for l:=1 to length(t) do if t[l]=sim then inc(c); 
 kol_sim:=c; 
End; 
 
Begin 
 read(text); 
 temp:=''; 
 For x:=1 to length(text) do 
 Begin 
 if pos(text[x],temp)=0 then Begin 
 temp:=temp+text[x]; 
 write(text[x],'-',kol_sim(text[x],text),' ') 
 End; 
 End; 
End. 
 
Программа рабочая.