Перебор с возратом, Рекурсия Опции

[setare]

Здравствуйте! Это опять я! Недавно нам задали задачу о счастливых билетиках. Надо написать ее с помощью перебора с возратом. Я как бы поняла как писать, но что-то оно у меня не работает. Не могли бы вы сказать в чем проблема. Спасибо. Здесь надо найти все счастливые билетики и распечатать их сумму в файл. А также все возможные ьилеты с неповторяющимися цифрами.

Код

program biletiki;
var
 head,tail,newtail,newhead:string;
 f:text;
 flname:string[20];
 i:integer;
  procedure ticket(var f:text;var head,tail:string);
   var
   s,s1,code,chislo,m,n:integer;
     begin
      if length(head)=4 then
      begin
       s:=0;
       for m:=1 to 3 do
        val(head,chislo,code);
        s:=s+copy(head,m,1);
      end;
      s1:=0;
       for n:=4 to 6 do
        val(head,chislo,code);
        s1:=s1+copy(head,n,1);
     end;
      chislo:=chislo+1;
      if s:=s1 then
       writeln(f,head);
 procedure summa(var f:text);
   var
    s:integer;
      begin
         s:=0;
           s:=s+head;
      end;  
  begin
   writeln('Vvedite nazvaniye fila.');
   readln(flname);
   assign(f,flname);
   rewrite(f);
   for i:=1 to length(tail) do
    newhead:= head + copy(tail,i,1);
    delete(tail,1,i);
    newtail:=tail;
    ticket(newtail,newhead);
  end.

Сообщение отредактировано: setare - 18.03.2005 18:31