Pascal/Turbo Pascal - Urgente ayuda para programa en pascal

{A ver si esto ayuda }

program juego12;

uses

  crt;

 var

   copas : string[3];

   y, x, t, cont : integer;

   l, opcion, cual, puls : char;

   esta : boolean;

 procedure mesa;

 begin

     clrscr;

     gotoxy(10,2);write('**** Partida ****');

     gotoxy(10,4);write('ÚÄÄÄ¿');

     gotoxy(10,5);write('³   ³');

     gotoxy(10,6);write('ÀÄÄÄÙ');

     gotoxy(17,4);write('ÚÄÄÄ¿');

     gotoxy(17,5);write('³   ³');

     gotoxy(17,6);write('ÀÄÄÄÙ');

     gotoxy(23,4);write('ÚÄÄÄ¿');

     gotoxy(23,5);write('³   ³');

     gotoxy(23,6);write('ÀÄÄÄÙ');

     gotoxy(12,7);write('1');

     gotoxy(19,7);write('2');

     gotoxy(25,7);write('3');

     gotoxy(5,9);write('Elije Donde Esta La [A] 1/2/3');

 end;

 begin

   repeat

     clrscr;

     gotoxy(10,2);write('Jugamos Partida [S/N]');

     repeat

         puls := upcase(readkey);

     until puls in['S','N'];

     clrscr;

     if puls in['S'] then

     begin

     fillchar(copas,4,' ');

     copas[0] := chr(3);

     randomize;

     x := 1;

     y := 0;

     repeat

      y := random(4);

      if (y > 0) and (y < 4) then

      begin

    case y of

  1 : l := 'A';

  2 : l := 'B';

  3 : l := 'C';

  end;

     t := 1;

     esta := false;

     repeat

         if copas[t] = l then

         esta := true;

         t := t + 1;

     until t > 3;

     if esta = true then

     begin

     end

   else

      begin

      copas[x] := l;

      x := x + 1;

     end;

      end;

     until x > 3;

     mesa;

     repeat

         opcion := readkey;

     until opcion in[#49,#50,#51];

        gotoxy(12,5);write(copas[1]);

        gotoxy(19,5);write(copas[2]);

        gotoxy(25,5);write(copas[3]);

        case opcion of

      #49 : begin

             gotoxy(30,5);write('Su Opcion Fue [ 1 ]');

            end;

      #50 : begin

             gotoxy(30,5);write('Su Opcion Fue [ 2 ]');

            end;

      #51 : begin

             gotoxy(30,5);write('Su Opcion Fue [ 3 ]');

            end;

          end;

        t := 1;

        esta := false;

        repeat

           if copas[t] = 'A' then

           begin

           esta := true;

      case t of

      1 : l := #49;

      2 : l := #50;

      3 : l := #51;

      end;

        if opcion = l then

        begin

        gotoxy(5,11);write('Gano Esta partida');

        end

      else

         begin

          gotoxy(5,11);write('Perdio Esta partida');

         end;

           end

         else

           begin

            t := t + 1;

           end;

        until (esta = true) or (t > 3);

      gotoxy(5,13);write('Pulse Una Tecla');

      readkey;

     end;

   until puls in['N'];

 end.

{A ver a qui te dejo otra forma con tu unit tendrás que ajustarla a tus conocimientos esto

 solo es un ejemplo como ayuda }

  program juego12;

uses

  crt, {Aqui La Unit};

 var

   copas : string[3];

   aposto, y, x, t, total : integer;

   tec, opcion, cual, puls : char;

   esta : boolean;

 function sortearCopa(nro:Integer) : Integer; {La Unit}

 begin

    if nro = 1 then Randomize;

    sortearCopa:= Random(3) + 1;

 end;

 procedure mesa;

 begin

     clrscr;

     gotoxy(10,2);write('**** Partida ****');

     gotoxy(10,4);write('ÚÄÄÄ¿');

     gotoxy(10,5);write('³ A ³');

     gotoxy(10,6);write('ÀÄÄÄÙ');

     gotoxy(17,4);write('ÚÄÄÄ¿');

     gotoxy(17,5);write('³ B ³');

     gotoxy(17,6);write('ÀÄÄÄÙ');

     gotoxy(24,4);write('ÚÄÄÄ¿');

     gotoxy(24,5);write('³ C ³');

     gotoxy(24,6);write('ÀÄÄÄÙ');

     gotoxy(5,9);write('Elije Donde Esta La [Moneda] A/B/C');

 end;

 begin

    total := 100;

 repeat

     clrscr;

     mesa;

     gotoxy(5,10);write('Su Capital Es De : ',total,' Euros');

     gotoxy(40,9);

  repeat

      tec := upcase(readkey);

  until tec in['A','B','C'];

  case tec of

 'A' : begin gotoxy(31,5);write('Su OPcion Es La [A] Cuanto Apuesta = '); end;

 'B' : begin gotoxy(31,5);write('Su OPcion Es La [B] Cuanto Apuesta = '); end;

 'C' : begin gotoxy(31,5);write('Su OPcion Es La [C] Cuanto Apuesta = '); end;

  end;

  opcion := tec;

  gotoxy(68,5);readln(aposto);

  case sortearCopa(1) of

 1 : cual := 'A';

 2 : cual := 'B';

 3 : cual := 'C';

 end;

   if cual = opcion then

   begin

      total := total + aposto;

      gotoxy(5,11);write('Usted Gana su Capital Es De : ',total,' Euros');

   end

 else

    begin

      total := total - aposto;

      gotoxy(5,11);write('Usted Pierde su Capital Es De : ',total,' Euros');

      if total < 1 then

      begin

      gotoxy(5,11);write('La Partida Termino Por Falta de apuestas');

      gotoxy(5,12);write('Pulse [Enter]');

      readln;

      halt(1);

      end;

    end;

   gotoxy(5,12);write('Otra Partida [S/N]');

   repeat

       puls := upcase(readkey);

   until puls in['S','N'];

   until puls = 'N';

 end.