помогите пожалуйста решить задачу в pascal

[volia.92]

заполнить файл последовательно доступа f целыми числами,получинными
с помощью генератора случайных чисел.Из файла f получить файл g ,исключив повторные вхождение чисел.Вывести файл g на печать

[Chudo4258]

program Project2;
var f,g: text;
    i:integer;
    M:set of 1..20;
    x:byte;
begin
assign(f,'zap.txt');
rewrite(f);
for i:=1 to 10 do
 writeln(f,random(21));
close(f);
reset(f);
M:=[];
while not(eof(f)) do
 begin
  readln(f,x);
  M:=M+[x];
 end;
close(f);
assign(g,'new.txt');
rewrite(g);
for i:=0 to 20 do
 if i in M then writeln(g,i);
close(g);
end.