Помогите, пожалуйста, с символьной строкой

[Vrill]

С клавиатуры вводится символьная строка длиной. Определите, сколько раз встречается в строке каждый из входящих в нее символов.

[newerow1989]

var s:string;
    p:array[byte] of byte;
    i,n:integer;
begin
   Write('Vvedite s = ');
   Readln(s);
   For i:=Low(p) to High(p) do
      p[i]:=0;
   For i:=1 to Length(s) do
   begin
      n:=Ord(s[i]);
      p[n]:=p[n]+1;
   end;
   For i:=Low(p) to High(p) do
      If p[i]>0 then
         Writeln(Char(i),' - ',p[i]);
   Readln;
end.