Неповторное считывание Опции

[John]

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

  randomize;
  assign(f1, 'D:\BP\all\1.bin');
  reset(f1);
  n:=random(filesize(f1));
  seek(f1,n);
  read(f1, s1);
  close(f1);

Сообщение отредактировано: John - 8.06.2007 1:52

[volvo]

var 
ms: set of 0..250;
begin

  ms := [];
  randomize;
  assign(f1, 'D:\BP\all\1.bin');
  reset(f1);

  // ... Здесь - какой-то цикл 
  repeat
    n:=random(filesize(f1));
  until not (n in ms);
  ms:=ms + [n]; // <-- Вот тут...

  seek(f1,n);
  read(f1, s1);
  // ... Конец цикла 

  close(f1);
end;