Удаление повторного вхождения символа из строки

program lab_9_1;               
uses crt;                   
Var f1,f2:text;                       
st,s:string;                 
i,j:integer;                                    
begin                                        
   clrscr;                               
   assign (f1,'c:/f.txt');                   
   reset(f1);
   writeln(st);                                  
   while not eof(f1) do                           
   readln(f1, st);                                
   for i:= length(st) downto 1 do       
   s:=s+st[i];                                    
 
   assign(f2, 'c:\g.txt');
   rewrite(f2);
   writeln(f2, s);
   close(f1);
   close(f2);
   readln;
end.

program lab_9_1;
uses crt;
Var f1,f2:text;
st,s,s2:string;
i,j:integer;
b: boolean;
begin
   clrscr;
   assign (f1,'c:/f.txt');
   reset(f1);
   writeln(st);
   while not eof(f1) do
   readln(f1, st);
   for i:= length(st) downto 1 do
   s:=s+st[i];
   s2:=' ';
   for i:=length(s) downto 1 do
      begin
         if pos(s[i],s2)=0 then s2:=s2+s[i]
         else delete (s,i,1);
      end;
   assign(f2, 'c:\g.txt');
   rewrite(f2);
   writeln(f2 ,s);
   close(f1);
   close(f2);
   writeln(st);
   writeln(s);
   readln;
end.

program lab_9_1;
 
uses crt;
 
var st,s:string;
    i:integer;
    f:text;
 
begin
  clrscr;
  assign (f,'C:\Files for Program Pascal\F.txt');
  reset(f);
  st:='';
  while not eof(f) do begin
    readln(f,s);
    st:=st+s;
  end;
  close(f);
  assign(f,'C:\Files for Program Pascal\G.txt');
  rewrite(f);
  s:='';
  for i:=length(st) downto 1 do begin
    if pos(st[i],s)=0 then
      s:=s+st[i]
  end;
  writeln(f,s);
  close(f);
end.