паскаль(файлы)

[masterlomaster]

Допустим я создал два файла.Записываю в первый файл: 12234

Мне нужно что бы во втором файле сохранились цифры 1234 т.е без повторений.

Если есть у кого-нибуть алгоритм этого покажите, буду благодарен.

[GetMax]

Вот примерный вариант решения

Var
  F1,F2:Text;
  st1,st2:String;
  Mn_c:Set of Char;
  i:Byte;
begin
  Assign(F1,'Ishod.Txt');
  Assign(F2,'Result.Txt');
  Reset(F1);
  Rewrite(F2);
  st2:='';
  Mn_c:=[];
  While Not EOF(F1) do
  Begin
    Readln(F1,St1);
    For i:=1 to Length(St1) do
    Begin
      If Not (St1[i] in Mn_c) then
      Begin
        St2:=St2+St1[i];
        Include(Mn_c,St1[i])
      End;
    End;
    Writeln(F2,St2);
    St2:='';
    Mn_c:=[]
  End;
  Close(F1);
  Close(F2)
End.

Главное, пожалуй, условие работы: одна строка - одно число. Хотя при желании можно и переделать