И при выводе он бывает считывает один и тот же вопрос (повторяет)
ТАк как это убрать?
вот так считывает и указатель на номер считывание ставит всегда в случайное положение, поэтому и повтор идет
randomize;
assign(f1, 'D:\BP\all\1.bin');
reset(f1);
n:=random(filesize(f1));
seek(f1,n);
read(f1, s1);
close(f1);
Сообщение отредактировано: John -