Исключить из файла все повторяющиеся компоненты — Pascal(Паскаль)

program pr1;
var i,j,n,pr:byte; ff:file of integer; mas:array[1..100] of integer;
begin
  assign(ff,'date.input');
  reset(ff);
  i:=0;
  while not eof(ff) do
  begin
    inc(i);
    read(ff,mas[i]);
  end;
  n:=i;
  rewrite(ff);
  for i:=1 to n do
  begin
    pr:=0;
    for j:=1 to n do
    if mas[i]=mas[j] then inc(pr);
    if pr=1 then write(ff,mas[i]);
  end;
  Close(ff);
end.