Файлы! Опции

[Светлана]

Здравствуйте! У меня тут такая задачка: "Заполнить файл последовательного доступа 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 povtory;
uses crt;
const n=30;
var f,q:text;
s:string[2];
i,j,a,a_tec,err:integer;
fl:boolean;
begin
clrscr;
randomize;
assign(f,'fail.in');
rewrite(f);
for i:=1 to n do
  begin
  str(random(20),s);
  writeln(f,s);
  end;
close(f);
assign(q,'fail.out');
rewrite(q);
reset(f);
for i:=1 to n do
  begin
  fl:=true;
  readln(f,s);
  val(s,a,err);
  while (not(EOF(f))) and fl do
    begin
    readln(f,s);
    val(s,a_tec,err);
    if a=a_tec then
      fl:=false;
    end;
  close(f);
  reset(f);
  for j:=1 to i-1 do
    begin
    readln(f,s);
    if fl then
      begin
      val(s,a_tec,err);
      if a=a_tec then
        fl:=false;
      end;
    end;
  readln(f,s);
  if fl then
    begin
    str(a,s);
    writeln(q,s);
    end;
  end;
  close(f);
  close(q);
end. 

[volvo]

с кучей ненужных переводов из строки в число и обратно.

А зачем эти переводы, если из текстового файла (тем более такого, в котором информация записана в отдельных строках) можно читать сразу в число?

Вот полный аналог твоей программы:

program povtory;
uses crt;
const
  n = 30;

var
  f, q: text;
  fl: boolean;
  i, j, value, curr: integer;

begin
  clrscr;
  randomize;
  assign(f,'fail.in'); rewrite(f);
  for i:=1 to n do
    writeln(f,random(20));

  reset(f);
  assign(q,'fail.out'); rewrite(q);

  for i := 1 to n do begin
    fl := true;
    readln(f, value);

    while not EOF(f) and fl do begin
      readln(f, curr);
      if value = curr then fl := false;
    end;
    reset(f);

    for j:=1 to i-1 do begin
      readln(f, curr);
      if fl and (value = curr) then fl := false;
    end;

    readln(f, value);
    if fl then
      writeln(q, value);
  end;
  close(f);
  close(q);
end.

[Светлана]

program povtory;


    for j:=1 to i-1 do begin
      readln(f, curr);
      if fl and (value = curr) then fl := false;
    end;
  может тут надо {begin}? 
    readln(f, value);
    if fl then
      writeln(q, value);
  end;
  close(f);
  close(q);
end.

А так все правильно скопировала. Но file.out не выдает значения...