Переделка, файловый тип Опции

[Amster]

Помогите пожалуйста......

Значит изначально условие задачи , которую я делал пол - года назад заключалось в следующем:
В переменную типа String заносился текст , нужно было вывести символы встречающиеся только один раз и исходный текст....

program lab5
uses crt, printer
var
 s: string;
 tx: string;
 i: integer;
 txt: string;
 k: boolean;
begin
 clrscr;
  writeln;
   repeat
    writeln;
     readln(s);
      if length(s)=0 then
       begin
        writeln('’ҐЄбв ­Ґ ўўҐ¤Ґ­, Ї®ўв®аЁвҐ ўў®¤');continue;
       end
      else
       tx:='';
       txt:='';
       
       for i:=1 to length(s) do
    begin
     if pos(s[i], txt)=0 then
      begin
       tx:=tx+s[i];
       txt:=txt+s[i];
      end
       else if pos(s[i], tx)>0 then begin
        delete(tx, pos(s[i], tx), 1);
          end;
       end;
        writeln('?б室­л© ⥪бв:');
        writeln(s);
         writeln;
         if length(tx)=0 then
         writeln('ЌҐв бЁ¬ў®«®ў, ўбваҐз ойЁебп ®¤Ё­ а §')
         else
         begin
          writeln('‘Ё¬ў®«л, ўбваҐз ойЁҐбп ®¤Ё­ а §:');
           for i:=1 to length(tx) do
           write(tx[i],' ');
         end;
         writeln('¤«п ўл室  Ё§ жЁЄ«  ­ ¦¬ЁвҐ ESC, ¤«п Їа®¤®«¦Ґ­Ёп - «оЎго Є« ўЁиг.');
       until readkey=#27;
end.

Сейчас нужно переделать программу.... условие то же ....
но текст находится в типизированном файле.....
Незнаю что делать....

program lab5;
uses crt;
var
 s: file of string;
 tx: string;
 i: integer;
 txt: string;
 k: boolean;
begin
 assign(s,'z:\13.txt');
 reset(s);
 clrscr;
  writeln('‡¤а ўбвўг©вҐ! ќв® Їа®Ја ¬¬ , ўлў®¤  бЁ¬ў®«®ў, ўбваҐз ойЁебп ў ⥪б⥠®¤­®Єа в­®.');
   repeat
       tx:=''; 
       txt:='';
       
       while not eof(s) do
    begin
     if pos(s,txt)=0 then
      begin
       tx:=tx+s;
       txt:=txt+s;
      end
       else if pos(s,tx)>0 then begin
        delete(tx, pos(s, tx), 1);
          end;
       end;
        writeln('?б室­л© ⥪бв:');
        writeln(s);
         writeln;
         if length(tx)=0 then
         writeln
         else
         begin
          writeln('‘Ё¬ў®«л, ўбваҐз ойЁҐбп ®¤Ё­ а §:');
           for i:=1 to length(tx) do
           write(tx[i],' ');
         end;
         writeln;
         writeln('¤«п ўл室  Ё§ жЁЄ«  ­ ¦¬ЁвҐ ESC, ¤«п Їа®¤®«¦Ґ­Ёп - «оЎго Є« ўЁиг.');
       until readkey=#27;
end.