Курсовая работа: Игровая программа 15

for e02:=1 to 5-length(stroka[a02*2]) do

stl2:=stl2+'.';

stl2:=stl2+stroka[a02*2];

outtextxy(40,100+50*a02,stl2);

if a02<>0 then setcolor(9); {Выделение

лучшего игрока другим цветом}

end;(*for a02*)

repeat

until keypressed;

kl:=readkey;

setcolor(13);

end;(*best*)

(*Процедура вывода помощи*)

procedure help;

var

st3:string;

begin(*help*)

assign(f03,'pravila.dat');

reset(f03); {Открытие файла pravila.dat}

closegraph; {Выход из графического режима}

clrscr; {Очистка экрана}

kl:='n';

while not(eof(f03)) {Не конец файла} and

(kl<>Esc) {Не нажата кл. Esc} do

begin {нц1}

i:=1;

while (i<25) {Страница} and not(eof(f03)) do

begin {нц2}

i:=i+1;