Пожалуста помогите решить лабораторную по паскалю на тему ФАЙЛЫ!!!

[sir.andrey]

Создать файл F, заполненный целыми числами из диапазона [1,20].
Удалить из файла F повторяющиеся включения одного и того же числа.
ПРИМЕР: 10 13 2 5 6 7 6 9 10 2
13 2 5 6 7 9
Вот моя неработающая прога!!
program lab;
var f:file of integer; i,j,a,b,c,d,e,r,h,y:integer;
begin
Assign (f,'lab3.dat');
rewrite (f);
writeln ('vvedite kol-vo elementov v faile');
readln (a);
randomize;
for i:=0 to a-1 do begin
h:=random(20);
write (f,h);
end;
seek (f,0);
while not eof(f) do begin
read (f,h);
write (h,' ');
end;
for i:=0 to a-2 do begin
seek (f,i);
read (f,b);
for r:=i+1 to a-1 do begin
seek (f,r);
read (f,b);
if r=b then begin
seek(f,r+1);
read(f,d);
seek(f,filepos(f)-1);
write (f,d);
for j:=filepos(f) to a-1 do begin
seek (f,filepos(f)+1);
read (f,e);
seek (f,filepos(f)-2);
write (f,e);
end;
end;
Происходит вылет за пределы файла!!!
Не знаю что и делать,
помогите пожалуйста!!!
Заранее премного благодарен.

[sir.andrey]

Ну помогииииитеееее!!!!!!