Нудно доделать игру в текстовом паскале

[xxxSEREGAxxx]

Нада сделать чтобы было 2 игрока которые по очереди кидают кости и у обоих есть 100 очков за каждый бросок ставиться 10 очков при выигрыше заберает очки тот кто выиграл когда очки кончаются выигрывает тот у кого больше очков. Еще нужно сделать таблицу рейтинга в которую сохраняются очки .Потом нада сделать меню
Меню должно содержать:
1. Новая игра
2. Рейтинг по очкам
3. Выход

var
one,two,sum:integer;
ans:char;
begin
randomize;
repeat
one:=random(6)+1;
two:=random(6)+1;
writeln(one,' ',two);
if (one+two=7)or(one+two=11) then
writeln('win');
if (one+two=2)or(one+two=3)or(one+two= 12) then
writeln('lose');
readln;
if ((one+two) in [4,5,6,8,9,10]) then
begin
sum:=one+two;
repeat
one:=random(6)+1;
two:=random(6)+1;
writeln(one,' ',two);
readln
until (one+two=7)or(one+two=sum) ;
if (one+two=7) then
begin
writeln('lose');
readln;
end
else
begin
writeln('win');
readln;
end;
end;
until false;
end.

Нужно сдать в понедельник помогите пожалуйста . Заранее спасибо!

[Mad_Cat]

Нудно доделать игру

конечно Нудно - это ж паскаль и текстовая игра

Меню должно содержать:
1. Новая игра
2. Рейтинг по очкам
3. Выход

Дык делайте - показывайте - поправим если получаться не будет МБ

[Serge_Bliznykov]

во-первых, код не оформлен должным образом.

во-вторых, (что и послужило причиной закрытия темы), данная тема является кросспостингом! Решайте свои проблемы в ОДНОЙ теме, не надо плодить кучу тем об одном и том же!

Модератор
p.s. о такой "мелочи", что код не ваш, Вы вообще забыли упомянуть...