Игра "Камень, ножницы, бумага"

Uses Crt;
Var
z,x,c:Integer;
begin
Writeln('Выберите один из вариантов');
Writeln('Камень - 0');
Writeln('Ножницы - 1');
Writeln('Бумага - 2');
readln(z);
x:=random(3);
If
(z=0) and (x=0)
or (z=1) and (x=1)
or (z=2) and (x=2)
then
begin
writeln('ничья т.к. вы выбраали  ',z ,' и компьютер выбрал ',x);
end
else
If
(z=0) and (x=1) or
(z=1) and (x=2) or
(z=2) and (x=0)
then
begin
writeln(' вы выиграли т.к. вы выбраали  ',z ,' а компьютер выбрал ',x);
end
else
Writeln ('вы проиграли т.к. вы выбраали  ',z ,' а компьютер выбрал ',x);
readln;
End.

    uses crt;
Procedure menu(var a:integer;b:integer);
Begin
  ClrScr;
  WriteLn('Èãðîê  Êîìï');
  WriteLn(a:4,'  ',b:4);
  Writeln('Âûáåðèòå îäèí èç âàðèàíòîâ');
  Writeln('Êàìåíü  - 1');
  Writeln('Íîæíèöû - 2');
  Writeln('Áóìàãà  - 3');
  WriteLn('Âûéòè   - 0');
End;
//------------------------------------------------------------------------------
Function printChoice(var a:byte):string[8];
Begin
    case a of
      1:printChoice:='Êàìåíü';
      2:printChoice:='Íîæíèöû';
      3:printChoice:='Áóìàãà';
    end;
End;
//------------------------------------------------------------------------------
    var player,comp:byte;
        choice:char;
        stat1,stat2:integer;
begin
  Randomize;
  stat1:=0;
  stat2:=stat1;
  
  Repeat
    comp:=random(3)+1;
    menu(stat1,stat2);
    
    Repeat
      choice:=ReadKey;
    Until choice in ['0'..'3'];
    
    player:=ord(choice)-48;
    
    WriteLn('----------------------------------------------------------------');
    WriteLn('Èãðîê: ',printChoice(player):8,'  ',' Êîìï: ',printChoice(comp):8);
    if (comp=player) then WriteLn('->Íè÷üÿ')
    else if((player - comp = 1 ) or (player - comp = -2)) then
    Begin
        WriteLn('->Êîìï âûèãðàë');
        inc(stat2);
    End
    else
    Begin
       WriteLn('->Èãðîê âûèãðàë');
       inc(stat1);
    End;
    WriteLn('----------------------------------------------------------------');
    ReadKey;
  Until player=0;
end.