Дан файл f компоненты которого являются символами получить файл g образованный из файла f с исключением повто - Pascal ABC

uses crt;
var s:char;
    f,g:file of char;
    m:set of char;
    n,i:integer;
begin
assign(f,'file1');
rewrite(f);
write('Количество символов n=');
readln(n);
writeln('Введите символы в файл, в том числе повторяющиеся:');
for i:=1 to n do
 begin
  write('s=');
  readln(s);
  write(f,s);
 end;
clrscr;
writeln('Содержанние файла F');
reset(f);
assign(g,'file2');
rewrite(g);
m:=[];
while not eof(f) do
 begin
  read(f,s);
  write(s,' ');
  if not (s in m) then
   begin
    write(g,s);
    m:=m+[s];
   end;
 end;
close(f);
writeln;
writeln('Содержание файла G');
reset(g);
while not eof(g) do
 begin
  read(g,s);
  write(s,' ');
 end;
close(g);
end.