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

kl:=readkey;

j:=1;

stroka[i*2-1]:='';

u:=not(kl=enter);

while u do

begin(*Чтение имени игрока*)

u:=(kl>' ') and (kl<'z') and (j<11);

if u

then

begin(*нц*)

stroka[i*2-1]:=stroka[i*2-1]+kl;

outtextxy(80+j*40,230,kl);{Печать

буквы на новой позиции}

j:=j+1;

end;(*кц*)

kl:=readkey;

u:=not(kl=Enter);

end;(*Чтение имени игрока*)

{Если игрок не ввел имя, то его имя

Noname}

if length(stroka[i*2-1])=0

then stroka[i*2-1]:='Noname';

stroka[i*2]:=step;

(*Запись рекорда в файл*)

rewrite(f02);

for i:=1 to 10 do

writeln(f02,stroka[i]);

close(f02);

end;(*Переф. табл. рекорд.*)