Дан текстовый файл f. Записать в файл g символы файла f в обратном порядке, оставив только первые вхождения каждого символа.

Компилируется нормально, в файл (в результирующий g) ничего не пишет....

uses crt;
var
f, g : text;
i : integer;
b :char;
mn : set of char;
s : string;
begin
clrscr;
assign (f,'f9.txt');
assign (g,'g9.txt');
reset (f);
rewrite (g);
while eof (f) do
  begin
    readln (f,s) ;
    for i := 1 to length(s) div 2  do
      begin
        b := s[i];
        s[i] := s[length(s)-i+1];
        s[length(s)-i+1] := b;
     end;
     mn := ['a'..'z','0'..'9'];
     for i := 1 to length(s) do
       begin
         if s[i] in mn then
           begin
             write (g, s[i]);
             mn :=  mn - [s[i]] ;
           end;
       end;
end;
close (f);
close (g);
end.

while eof (f) do 

? это как?
может,

while not(eof (f)) do