Pascal/Turbo Pascal - necesito este juego y no se como hacerlo

Program Tateti;

Uses Crt;

var I: Integer;

Tecla1, Tecla2 : Char;

Procedure DibujaCuadro; {Dibuja el marco para comenzar a jugar}

begin

ClrScr;

Writeln;

for I := 1 to 5 do

Writeln(' Û Û');

Writeln(' ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ');

for I := 1 to 5 do

Writeln(' Û Û');

Writeln(' ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ');

for I := 1 to 5 do

Writeln(' Û Û');

GotoXY(10,1); Write('1'); GotoXY(26,1); Write('2');

GotoXY(45,1); Write('3'); GotoXY(10,8); Write('4');

GotoXY(26,8); Write('5'); GotoXY(45,8); Write('6');

GotoXY(10,15); Write('7'); GotoXY(26,15); Write('8');

GotoXY(45,15); Write('9');

end;{DibujaCuadro}

{Dibuja la letra X o la letra O segun el usuario}

{PosX significa Poscicion X}

{Los segmentos en blanco son para borrar alguna letra dibujada anteriormente}

Procedure DibujaXO(PosX, PosY: Integer; XuO: Char);

begin

if XuO = 'X' then {Puse XuO para no decir: X o O por eso de la gramatica}

begin

GotoXY(PosX, PosY); write(' ');

GotoXY(PosX, PosY+1); write(' ');

GotoXY(PosX, PosY+2); write(' ');

GotoXY(PosX, PosY+3); write(' ');

GotoXY(PosX, PosY+4); write(' ');

GotoXY(PosX, PosY); write(' Û Û ');

GotoXY(PosX, PosY+1); write(' Û Û ');

GotoXY(PosX, PosY+2); write(' Û ');

GotoXY(PosX, PosY+3); write(' Û Û ');

GotoXY(PosX, PosY+4); write(' Û Û ');

end;

if XuO ='O' then

begin

GotoXY(PosX, PosY); write(' ');

GotoXY(PosX, PosY+1); write(' ');

GotoXY(PosX, PosY+2); write(' ');

GotoXY(PosX, PosY+3); write(' ');

GotoXY(PosX, PosY+4); write(' ');

GotoXY(PosX, PosY); write(' ÛÛÛÛÛ ');

GotoXY(PosX, PosY+1); write(' Û Û ');

GotoXY(PosX, PosY+2); write(' Û Û ');

GotoXY(PosX, PosY+3); write(' Û Û ');

GotoXY(PosX, PosY+4); write(' ÛÛÛÛÛ ');

end;

end;{DibujaXO}

begin

DibujaCuadro;

GotoXY(20,21); Writeln('Para salir presione ESC');

While Tecla2 <> Char(27) do {Char(27) es la tecla ESC}

begin

GotoXY(20,20); write(' ');

GotoXY(20,20); write('Presione X u O : ');

{Upcase(ReadKey) convierte la tecla presionada en mayuscula}

Tecla1 := UpCase(ReadKey);

{Halt detiene el programa. Yo no deberia hacer esto asi.}

if Tecla1 = char(27) then Halt;{Halt termina el programa. No se debe}

GotoXY(20,20); write(' ');

GotoXY(20,20); write('Presione N£mero de posici¢n: ');

{Tecla2 almacena el numero de posicion aunque este numero es una letra}

Tecla2 := ReadKey; {Recuerda que Tecla1 y Tecla2 son de tipo char}

if Tecla2 = '1'then DibujaXO(12,1,Tecla1);

if Tecla2 = '2'then DibujaXO(30,1,Tecla1);

if Tecla2 = '3'then DibujaXO(48,1,Tecla1);

if Tecla2 = '4'then DibujaXO(12,8,Tecla1);

if Tecla2 = '5'then DibujaXO(30,8,Tecla1);

if Tecla2 = '6'then DibujaXO(48,8,Tecla1);

if Tecla2 = '7'then DibujaXO(12,15,Tecla1);

if Tecla2 = '8'then DibujaXO(30,15,Tecla1);

if Tecla2 = '9'then DibujaXO(48,15,Tecla1);

end;{Principal}

end.

{Mira esto a ver si te ayuda }

 program ta_te_ti;

  uses

    crt;

    const

      tablero : array[1..7,1..7] of char = (

      (#218,#196,#194,#196,#194,#196,#191),

      (#179,#32,#179,#32,#179,#32,#179),

      (#195,#196,#197,#196,#197,#196,#180),

      (#179,#32,#179,#32,#179,#32,#179),

      (#195,#196,#197,#196,#197,#196,#180),

      (#179,#32,#179,#32,#179,#32,#179),

      (#192,#196,#193,#196,#193,#196,#217));

     type

        jugadores = record

             nombre : string[50];

             table : array[1..3,1..3] of char;

             end;

    var

      juego : array[1..2] of jugadores;

      prim, cont, turno, pos1x, pos1y : integer;

      jugad1, jugad2 : boolean;

    procedure pontablero(x, y, tur : integer);

    var

      h, k : integer;

     begin

         gotoxy(x - 1,y + 2);write('1');

         gotoxy(x - 3,y + 4);write('Y 2');

         gotoxy(x - 1,y + 6);write('3');

         gotoxy(x + 2,y - 1);write('1');

         gotoxy(x + 4,y - 3);write('X');

         gotoxy(x + 4,y - 1);write('2');

         gotoxy(x + 6,y - 1);write('3');

         gotoxy(x + 1,y - 5);write('Tablero Termina Juego [ESC]');

         for h := 1 to 7 do

           for k := 1 to 7 do

           begin

           gotoxy(x + h,y + k);write(tablero[k,h]);

           end;

           gotoxy(x,y + 9);write('Inicia Juego El Jugador ');

           gotoxy(x,y + 11);write('Jugador [X] Nombre = ');

           gotoxy(x + 21,y + 11);write(juego[1].nombre);

           gotoxy(x,y + 13);write('Jugador [O] Nombre = ');

           gotoxy(x + 21,y + 13);write(juego[2].nombre);

           if tur = 1 then

           begin

           textcolor(14);

           gotoxy(x + 21,y + 11);write(juego[tur].nombre);

           textcolor(7);

           end

        else

          begin

          textcolor(14);

           gotoxy(x + 21,y + 13);write(juego[tur].nombre);

           textcolor(7);

          end;

     end;

     procedure presentapartida(xp, yp : integer);

     var

       xx, yy : integer;

       begin

          for yy := 1 to 3 do

          begin

            for xx := 1 to 3 do

            begin

               if juego[1].table[xx,yy] <> #0 then

                begin

          gotoxy(xp + (xx * 2),yp + (yy * 2));write(juego[1].table[xx,yy]);

                  end

               else

                  begin

                    gotoxy(xp + (xx * 2),yp + (yy * 2));write(' ');

                  end;

               if juego[2].table[xx,yy] <> #0 then

               begin

          gotoxy(xp + (xx * 2),yp + (yy * 2));write(juego[2].table[xx,yy]);

           end

         else

            begin

              gotoxy(xp + (xx * 2),yp + (yy * 2));write(' ');

            end;

          end;

         end;

       end;

  function correctojuego(n : integer) : boolean;

  var

    ok : boolean;

    cc : char;

    begin

       if n = 1 then

       cc := 'X';

       if n = 2 then

       cc := 'O';

       ok := false;

       if (juego[n].table[1,1] = cc) and

          (juego[n].table[2,1] = cc) and

          (juego[n].table[3,1] = cc) then

          ok := true;

        if (juego[n].table[1,2] = cc) and

          (juego[n].table[2,2] = cc) and

          (juego[n].table[3,2] = cc) then

          ok := true;

        if (juego[n].table[1,3] = cc) and

          (juego[n].table[2,3] = cc) and

          (juego[n].table[3,3] = cc) then

          ok := true;

         if (juego[n].table[1,1] = cc) and

          (juego[n].table[1,2] = cc) and

          (juego[n].table[1,3] = cc) then

          ok := true;

        if (juego[n].table[2,1] = cc) and

          (juego[n].table[2,2] = cc) and

          (juego[n].table[2,3] = cc) then

          ok := true;

        if (juego[n].table[3,1] = cc) and

          (juego[n].table[3,2] = cc) and

          (juego[n].table[3,3] = cc) then

          ok := true;

        if (juego[n].table[1,1] = cc) and

          (juego[n].table[2,2] = cc) and

          (juego[n].table[3,3] = cc) then

          ok := true;

        if (juego[n].table[3,1] = cc) and

          (juego[n].table[2,2] = cc) and

          (juego[n].table[1,3] = cc) then

          ok := true;

       correctojuego := ok;

    end;

  procedure iniciojuego(var juega : integer);

  var

    p : integer;

  begin

     gotoxy(20,4);write('Entre Nombre Jugador [1] = ');

     gotoxy(47,4);readln(juego[1].nombre);

     gotoxy(20,4);clreol;

     gotoxy(20,4);write('Entre Nombre Jugador [2] = ');

     gotoxy(47,4);readln(juego[2].nombre);

     gotoxy(20,4);clreol;

     p := random(40) + 1;

       case p of

  1,3,5,7,9 : juega := 1;

  2,4,6,8,10 : juega := 2;

  11,13,15,17,19 : juega := 1;

  12,14,16,18,20 : juega := 2;

  21,23,25,27,29 : juega := 2;

  22,24,26,28,30 : juega := 1;

  31,33,35,37,39 : juega := 2;

  32,34,36,38,40 : juega := 1;

     end;

     pontablero(10,7,juega);

     presentapartida(10,7);

  end;

  procedure movemosfichas(j : integer);

  var

     ju1x, ju1y, ju, mue : integer;

     valido : boolean;

     sig, tecla : char;

     ganador : string[50];

  begin

     ju := j;

     valido := true;

     mue := 1;

     ganador := ' ';

     repeat

        gotoxy(40,7);clreol;

        gotoxy(40,8);clreol;

        if ju = 1 then

        begin

           gotoxy(31,20);write(juego[2].nombre);

           textcolor(14);

           gotoxy(31,18);write(juego[1].nombre);

           textcolor(7);

           gotoxy(40,7);write('Entre Cordenada [X] : ');

           repeat

           tecla := readkey;

           until tecla in['1','2','3',#27];

           if tecla = #27 then

           break;

           gotoxy(62,7);write(ord(tecla) - 48);

           ju1x := ord(tecla) - 48;

           gotoxy(40,8);write('Entre Cordenada [Y] : ');

           repeat

           tecla := readkey;

           until tecla in['1','2','3',#27];

           if tecla = #27 then

           break;

           gotoxy(62,8);write(ord(tecla) - 48);

           ju1y := ord(tecla) - 48;

           gotoxy(40,7);clreol;

           gotoxy(40,8);clreol;

           if juego[1].table[ju1x,ju1y] <> #0 then

           begin

              valido := false;

           end

         else

           begin

           juego[1].table[ju1x,ju1y] := 'X';

           juego[2].table[ju1x,ju1y] := 'X';

           ju := ju + 1;

           valido := true;

           mue := mue + 1;

           presentapartida(10,7);

           if correctojuego(1) = true then

           begin

           ganador := copy(juego[1].nombre,1,length(juego[1].nombre));

           break;

           end;

         end;

        end;

        if ju = 2 then

        begin

           gotoxy(31,18);write(juego[1].nombre);

           textcolor(14);

           gotoxy(31,20);write(juego[2].nombre);

           textcolor(7);

           gotoxy(40,7);write('Entre Cordenada [X] : ');

           repeat

           tecla := readkey;

           until tecla in['1','2','3',#27];

           if tecla = #27 then

           break;

           gotoxy(62,7);write(ord(tecla) - 48);

           ju1x := ord(tecla) - 48;

           gotoxy(40,8);write('Entre Cordenada [Y] : ');

           repeat

           tecla := readkey;

           until tecla in['1','2','3',#27];

           if tecla = #27 then

           break;

           gotoxy(62,8);write(ord(tecla) - 48);

           ju1y := ord(tecla) - 48;

           if juego[2].table[ju1x,ju1y] <> #0 then

           begin

              valido := false;

           end

         else

           begin

           juego[2].table[ju1x,ju1y] := 'O';

           juego[1].table[ju1x,ju1y] := 'O';

           ju := ju - 1;

           valido := true;

           mue := mue + 1;

           presentapartida(10,7);

           if correctojuego(2) = true then

           begin

           ganador := copy(juego[2].nombre,1,length(juego[2].nombre));

           break;

           end;

         end;

        end;

     if valido = true then

     begin

     valido := false;

     gotoxy(40,9);clreol;

     end

   else

      begin

        gotoxy(40,9);write('Celda Ocupada');

      end;

     until mue >= 7;

     presentapartida(10,7);

     if ju = 1 then

     ju := ju + 1;

     if ju = 2 then

     ju := ju - 1;

     if (ganador <> juego[2].nombre) or (ganador <> juego[1].nombre) then

     begin

         ganador := ' ';

         gotoxy(40,7);clreol;

         gotoxy(40,8);clreol;

         presentapartida(10,7);

       repeat

         if ju = 1 then

         begin

           gotoxy(31,20);write(juego[2].nombre);

           textcolor(14);

           gotoxy(31,18);write(juego[1].nombre);

           textcolor(7);

         end;

         if ju = 2 then

         begin

           gotoxy(31,20);write(juego[1].nombre);

           textcolor(14);

           gotoxy(31,18);write(juego[2].nombre);

           textcolor(7);

         end;

         gotoxy(30,7);clreol;

         gotoxy(30,8);clreol;

         gotoxy(30,7);write('Entre Cordenadas [X] De Ficha A Mover : ');

         repeat

            tecla := readkey;

         until tecla in['1','2','3',#27];

         if tecla = #27 then

         break;

         ju1x := ord(tecla) - 48;

         gotoxy(30,8);write('Entre Cordenadas [Y] De Ficha A Mover : ');

         repeat

            tecla := readkey;

         until tecla in['1','2','3',#27];

         if tecla = #27 then

         break;

         ju1y := ord(tecla) - 48;

         gotoxy(30,7);clreol;

         gotoxy(30,8);clreol;

         case ju of

      1 : sig := 'X';

      2 : sig := 'O';

        end;

         if juego[ju].table[ju1x,ju1y] = sig then

         begin

            juego[ju].table[ju1x,ju1y] := #0;

            if ju = 1 then

            juego[ju + 1].table[ju1x,ju1y] := #0;

            if ju = 2 then

            juego[ju - 1].table[ju1x,ju1y] := #0;

            gotoxy(30,7);clreol;

            gotoxy(30,8);clreol;

            presentapartida(10,7);

            gotoxy(30,7);write('Entre Cordenadas [X] De Nueva Posicion : ');

            repeat

            tecla := readkey;

            until tecla in['1','2','3',#27];

            if tecla = #27 then

            break;

            ju1x := ord(tecla) - 48;

            gotoxy(30,8);write('Entre Cordenadas [Y] De Nueva Posicion : ');

            repeat

            tecla := readkey;

            until tecla in['1','2','3',#27];

            if tecla = #27 then

            break;

            ju1y := ord(tecla) - 48;

            gotoxy(30,7);clreol;

            gotoxy(30,8);clreol;

            if juego[ju].table[ju1x,ju1y] = #0 then

            if sig = 'X' then

            begin

            juego[ju].table[ju1x,ju1y] := 'X';

            if ju = 1 then

            juego[ju + 1].table[ju1x,ju1y] := 'X';

            if ju = 2 then

            juego[ju - 1].table[ju1x,ju1y] := 'X';

            end;

            if sig = 'O' then

            begin

            juego[ju].table[ju1x,ju1y] := 'O';

            if ju = 1 then

            juego[ju + 1].table[ju1x,ju1y] := 'O';

            if ju = 2 then

            juego[ju - 1].table[ju1x,ju1y] := 'O';

            end;

            presentapartida(10,7);

            if correctojuego(ju) = true then

           begin

           ganador := copy(juego[ju].nombre,1,length(juego[ju].nombre));

           break;

           end;

         end;

          if ju = 1 then

          ju := 2

        else

          ju := 1;

      until (ganador <> ' ') or (tecla = #27);

     end;

     if (ganador = juego[2].nombre) or (ganador = juego[1].nombre) then

     begin

     clrscr;

     writeln;

     writeln('   El Ganador Fue = ',ganador);

     writeln;

     writeln('   Pulse Una Tecla');

     readkey;

     end;

  end;

     begin

        clrscr;

        turno := 0;

        fillchar(juego[1],sizeof(juego[1]),#0);

        fillchar(juego[2],sizeof(juego[2]),#0);

        randomize;

        iniciojuego(turno);

        movemosfichas(turno);

     end.