Файлы! Опции

[Светлана]

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

Вот мой вариант... но у меня ошибка высвечивается... Помогите пож-та подкорректировать.

Program FAIL5;
const n=30;
 var f,q:text;
 a:array[1..n] of integer;
 i:integer;
   begin
    randomize;
    for i:=1 to n do
    a[i]:=random(100);
    assign(f,'c:\celie.txt');
    rewrite(f);
     for i:=1 to n do
     writeln(f,a[i]);
     close(f);
     reset(f);
      assign(q,'c:\povtornye.txt');
      rewrite(q);
       while not (Eof(f)) do begin
       readln(f,i);
        if a[i]<>a[i+1] then writeln(q,a[i]); (--> ошибка Range check error)
        close(f);
        close(q);
        writeln('poluchili:','c:\celie.txt','c:\povtornye.txt');
        readln;
        end;
       end.

[мисс_граффити]

вот так компилируется, но работает неправильно.

Program FAIL5;
const n=30;
var f,q:text;
 a:array[1..n] of integer;
 i:integer;
 begin
   randomize;
   for i:=1 to n do
     a[i]:=random(100);
   assign(f,'c:\celie.txt');
   rewrite(f);
   for i:=1 to n do
     writeln(f,a[i]);
   close(f);
   reset(f);
   assign(q,'c:\povtornye.txt');
   rewrite(q);
   while not (Eof(f)) do
     begin
     readln(f,i);
     if a[i]<>a[i+1] then
       writeln(q,a[i]);
     end;
   close(f);
   close(q);
   writeln('poluchili:','c:\celie.txt','c:\povtornye.txt');
   readln;
end.

(ты ошиблась с границами цикла)
почему не стала исправлять ошибки: не поняла, какой алгоритм используется.
как ты проверяешь, что число не повторяется?

readln(f,i);
     if a[i]<>a[i+1] then
       writeln(q,a[i]);

то есть, допустим, первое число в f равно 7
если а[7]<>a[8], то записываем a[7] в q
разве это то, что от нас требовалось в задаче?
а если в f записано 99, то будем пытаться сравнить a[99] и а[100] (ты знаешь, что у тебя там находится? я бы не рискнула строить прогнозы)