Почитал я инфу о этой программке, говорят, что она подходит только для старых версий Паскаля, а под Delphi идет очень плохо, тем более под версии начиная с 6-ой.
Может вы чем подмогнете? Программка такая (на Delphi):
Код
procedure TForm1.Button1Click(Sender: TObject);
var
f:textfile;
i,r:byte;
st:string;
begin
randomize;
i:=0;
assignfile(f,'index.txt');
reset(f);
Memo1.Lines.Clear;
Memo2.Lines.Clear;
Memo3.Lines.Clear;
st:='';
r:=1+(random(73));
Label2.Caption:=IntToStr(r);
for i:=1 to ((r-1)*3) do readln(f,st);
readln(f,st);
Memo1.Lines.Text:=st;
st:='';
readln(f,st);
Memo2.Lines.Text:=st;
st:='';
readln(f,st);
Memo3.Lines.Text:=st;
st:='';
i:=0;
end;