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

repeat

until keypressed;

kl:=readkey;

i:=0;

{Сравнение результатов}

repeat

i:=i+1;

val(stroka[i*2],b,x);

until (b>steps) or (i=6);

{Если результат игрока превосходит один из

результатов в таблице,он заносится в

таблицу}

if i<6 then

begin(*Переформирование таблицы

рекордов*)

for j:=5 downto i do

begin(*Сдвиг рекордов*)

stroka[j*2+1]:=stroka[j*2-1];

stroka[j*2+2]:=stroka[j*2];

end;(*Сдвиг рекордов*)

{Преглашение игрока к вводу имени}

cleardevice;

setbkcolor(0);

outtextxy(10,130,'Please, enter your

name :');

{Создание рамочки}

setcolor(10);

rectangle(100,225,525,290);

rectangle(98,223,527,292);