Где тут ошибка?

[Паскалька^^]

Задача была такая

Для данного слова длиной до 12 символов подсчитать число различных анаграмм (слов полученных перестановкой его букв).
Пример. лото Ответ: 12
Примечание. Имеются в виду слова: лото, лоот, лтоо, оолт, олот, олто, тоол, толо, тлоо, оотл, отло, отол.

Программу я написала, правда с ошибкой...помогите, пожалуйста, её найти.

PHP код:

Program P2;
procedure change(s,new:string);
var
    t1,t2,t3,t4:string;
    i,j,m:byte;
    t:boolean;
begin
    t1 := s; t2 := new;
    if (length(t1) > 1) then
        for i:=1 to length(t1) do begin
            t2 := t2 + t1[i];
            delete(t1,pos(t1[i],t1),1);
            change(t1,t2);
            t1 := s; t2 := new;
        end
    else
    t3:=t1+t2;
    t4:=t3;
    begin
     readln(t3);
     i:=1;
     j:=0;
     while i<=length(t3) do
     begin
        t:=false;
    while i<=length(t3) do
     begin
        while (t3[i]<>' ') and (i<=length(t3)) do
        begin
             t:=true;
             i:=i+1;
        end;
        if t then
        j:=j+1;
        i:=i+1;
     end;
    for m:=1 to length(t3) do begin
       if t3[i]=t4[i] then
       j:=j-1;
end;
   var
      j:integer;
        s,new:string;
   begin
         new := '';
        readln(s);
        change(s,new);
        writeln(j);
      readln;
end.