односвязные списки в паскале. подсчет количества похожих элементов в списке

[svetik09]

Подсчитать количество различных символов в текстовом файле, в ответе вывести символ и сколько раз он встречается в тексте. Символы напечатать в алфавитном порядке. Для реализации задачи использовать односвязный список. помогите написать программу, потому что я немного не понимаю как считать количество символов.

PHP код:

Program p1;    
  type ptr = ^s;
       s = record
            data:string;
            next:ptr;  end;
  var d ,k: string;     
      u : ptr; f:text;
      procedure print(first:ptr);
begin
  while first<>nil do
    begin
      write(first^.data,' ');
      first:=first^.next;
    end;
end;
procedure insElem (d:string; var u:ptr);
       
var pred,posl,sl : ptr;
begin
  new(sl);  sl^.data:=d;  sl^.next:=nil;
  if u=nil
    then u:=sl    
    else      
      begin    
        pred:=u; posl:=u;
        while (posl<>nil) and (posl^.data<=d) do
          begin  pred:=posl;  posl:=posl^.next;  end;
        if posl=nil             
          then  pred^.next:=sl   
          else                   
            begin
              sl^.next := posl;
              if posl=u
                then u:=sl       
                else pred^.next:=sl; 
            end;
      end;
end;

Begin
      { Список порожній }
  {assign(f,'tab.txt');
  reset(f);
     while not Eof(f) do  begin
      read(f, k);
      writeln(k);end; close(f); }
      u:=nil;   d:=k;
  writeln(' Bведите елемент. Закінчення введення "."');  read(d);
  while d<>'.' do   begin  insElem(d,u);  read(d);  end;
  writeln;  write('Сnucoк: ');
  print(u);    
End.