Нужно доделать прогу. Есть файл последовательного доступа (у меня он file of integer), записать в него N целых чисел полученых с помощью генератора чисел. Это я уже сделал. Мне нужно помочь с этим: подсчитать количество пар противоположных чисел среди компонентов этого файла.

Кто чтото знает говорите. Очень нужно!

Вот текст:

program ex1263;
   uses crt;
   var f: file of integer;
   a,n,i: integer;
 begin
 clrscr;
 randomize;
 for i:= 1 to 10 do
 begin
 assign(f,'num.dat');
 rewrite(f);
 n:=random(10)-9;
 a:=n+i;
 write(f,a);
 close(f);
 end;
 readln;
 end.

Так не бывает...
Или последовательного доступа, или типизированный

а какой тогда файл последовательного доступа? Обьясни если не сложно.

текстовый (f: text)