Камень ножницы бумага

[grom333]

Практикуюсь с операторами процедурами и на основе одной из игры сделал свою. Может условия все спер может нет, проверять долго.
1. А вот присутствует проблема, если выбирать только ножницы, то мы всегда проигрываем, если бумагу то всегда выигрываем, посмотрите условия, мне код не надо писать, просто дайте совет как алгоритм построить, что бы не было того что написал выше.
2. Проблема с записью в файл результатов. В мемо есть имя дойдя до 10 очков идет запись в файл, например: "оооооо проиграл со счетом 6 : 10" но дальше если играть получается запись такая :"оооооо проиграл со проиграл со счетом 7 : 10" т.е. повторяется "проиграл со" не могу понять откуда она. Еще если сыграл 1 кон, и не написал имя, она пишет имя самого первого игрока. Тут уж я прошу посмотреть и дать совет кодом, т.е. указать мою ошибку. Сейчас я уже не соображаю, все началось путаться.
проект: http://slil.ru/28487875