Разработчику о работе с 1С:Предприятие, Pascal, Паскаль

Подсчет различных букв в слове в Паскале.

program Acoun_Lat;
  //Подсчет различных букв в слове в Паскале.
var
  s_Word: string;
  i_Num, i_n, i, j: integer;
  r_Acoun: real;
begin
  writeln('Введите слово:');
  readln(s_Word);
  r_Acoun := 0;
  for i := 1 to length(s_Word) do
  begin
    i_n := 0;
    for j := 1 to length(s_Word) do
    begin
      if s_Word[i] = s_Word[j] then
        Inc(i_n);
    end;
    r_Acoun := r_Acoun + 1 / i_n;
  end;
  writeln('количество различных букв = ', r_Acoun: 1: 0);
  //завершение работы программы
  WriteLn('Нажмите <Enter>, чтобы выйти.');
  ReadLn();
end.

Результат:

Подсчет различных букв в слове в Паскале.