Данные из текста в рэндомом

[[Smarik]]

нужен кусок программы который из указанного текстового файла будет рэндомом брать любую строку...за новую строку будет считаться строка перед которой идет "---" чтобы текст в несколько строк написать можно было, заранее спасибо.

[Stilet]

Идеи есть?

[[Smarik]]

нет нету =(

[alexBlack]

Сообщение от [Smarik]

нужен кусок программы который из указанного текстового файла будет рэндомом брать любую строку...за новую строку будет считаться строка перед которой идет "---" чтобы текст в несколько строк написать можно было, заранее спасибо.

Не понятно.

Приведи пример. Маленький текстовый файл и что нужно из него.

[[Smarik]]

Пример:
Есть файл 1.txt содержит следующее
---
строка 1
строка 2
строка 3
---
строка 4
строка 5
строка 6
---
Программа из 1.txt наугад берет людую строку и выводит на екран при условии что новая строка ето та строка перед которой стоит ---
тоесть текст строка 1 строка 2 строка 3 ето только первая строка а 4,5 и 6 - вторая строка.

[alexBlack]

var F:text;
     N:integer;
     S:String;
begin
     assign(F, '1.txt'); reset(F);
     N := random(5)+1;
     while not EOF(F) and (N > 0) do begin
          readln(F, S);
          if S = '---' then dec(N);
         
     end;
     if N > 0 then begin
        While not EOF(F) do begin
             readLn(F, S);
             if S = '---' then break;
             writeLn(S); 
        end;
     end;
     close(F); 
end;

Написано без теста. Надеюсь, синтаксис сам подправишь