Jogo sudoku em linguagem de programação pascal

program Sudoku;
//------------------------------------------------------------------------------
uses crt;
//------------------------------------------------------------------------------
type matriz = array[1..9,1..9,0..9] of byte; type arqnumeros = file of byte;
//------------------------------------------------------------------------------
const coluna= 24; linha= 5; espaco= #$20; arquivo = 'jogo_sudoku.dat'; j1 = 'jogo1.dat'; j2 = 'jogo2.dat'; j3 = 'jogo3.dat'; j4 = 'jogo4.dat'; j5 = 'jogo5.dat'; j6 = 'jogo6.dat'; j7 = 'jogo7.dat'; j8 = 'jogo8.dat'; j9 = 'jogo9.dat'; j10= 'jogo10.dat'; j11= 'jogo11.dat'; j12= 'jogo12.dat'; j13= 'jogo13.dat'; j14= 'jogo14.dat'; j15= 'jogo15.dat';

var x,y,i: integer; ch,tecla: char; m: matriz;
//------------------------------------------------------------------------------
//criando ambiente do sudoku procedure tabelasudoku; begin for I:=1 to 18 do begin textcolor(white); gotoxy (22,i+4);//coluna1 write('|'); textcolor(lightgreen); gotoxy (26,i+4);//coluna2 write ('|'); gotoxy (30,i+4);//coluna3 WRITE ('|'); textcolor(white); gotoxy (34,i+4);//coluna4 write ('I'); textcolor(lightgreen); gotoxy (38,i+4);//coluna5 write ('|'); gotoxy (42,i+4);//coluna6 write ('|'); textcolor(white); gotoxy (46,i+4);//coluna7 write ('I'); textcolor(lightgreen); gotoxy (50,i+4);//coluna8 write ('|'); gotoxy (54,i+4);//coluna9 write ('|'); textcolor(white); gotoxy (58,i+4);//coluna10 write ('|');