Подсчет количеста аннаграм =)

@Kirilllll · Регистрация: 23.03.2010

Студворк — интернет-сервис помощи студентам

Здравствуйте

Pascal

var
  s, s1: string;
  i, j, kol, fac, fact, res, q: longint;
begin
  readln(s);
  q:= 1;
  fac:= 1;
  for i:= 1 to length(s) do
    begin
      fac:= fac*i;
    end;
  for i:=1 to length(s) do
    begin
      kol:= 0;
      s1:= s[1];
      for j:= 1 to length(s) do
        begin
          if s1=s[j] then
            begin
              inc(kol);
              delete(s, j, 1);
            end;
        end;
      fact:= 1;
      for j:= 1 to kol do
        begin
          fact:= fact*j;
        end;
      q:= q*fact;
    end;
  res:= fac div q;
  writeln(res);
end.

Написал эту программу для подсчета количеста аннаграм из введенного с клавиатуры слова. Считает не правильно, подаскажите пожалуйста в чем ошибка
Пример работы программы:
TRANSPOSITION
194594400

Заранее спасибо! =)

Добавлено через 29 минут
Че никто помоч не может?(((

Опции темы