Создание алфавита из строки

[keysy08]

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

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

Вот мой код:

var
  i, j, count: integer;
  s, x: string;
 
begin
 
  writeln('Введите строку');
  readln(s);
 
 // x[j-1]:=['*'];  //символ, кооторого нет в тексте
  
  for j := 1 to length(s) do 
  begin
    
    if x[j - 1] = s[j] then 
      inc(j)
    Else 
    
    begin
      x:=s[j];
      for i := 1 to length(s) do 
      begin
        if x = s[i] then 
        begin
          inc(count); 
          inc(i);
        end
        Else 
          inc(i);
      end;
 
      writeln(x,' ', count);
    
    end;
      Inc(j);
  end; 
end.

[BDA]

var
  i: integer;
  s: string;
  a: array [0 .. 255] of integer;

begin
  for i := 0 to 255 do
    a[i] := 0;
  writeln('Введите строку');
  readln(s);
  for i := 1 to length(s) do
    inc(a[ord(s[i])]);
  for i := 0 to 255 do
    if a[i] > 0 then
      writeln(chr(i), ' ', a[i]);
  readln;
end.