Получаешь рандомом номер разделителя, построчно читаешь файл, пропускаешь N разделителей, выводишь до N+1-го. Юзается AssignFile, Reset, ReadLn, CloseFile и var f:text;
Можно предварительно посчитать число разделителей, также читая построчно. Чтобы все сразу не грузить. Хотя работать оно будет заметно медленнее.
|