Ошибка в коде

[X_ALONE_X]

Помогите найти ошибку в коде. Написал код, что-то вроде игры крестики-нолики, но в операторе case при нажатии на кнопку enter(#13), должен появиться крестик, но он не появляется. Вот код:

program igra;
uses crt, graph;
var mas:array[1..3,1..3] of integer;
x,y:integer;
key:char;

procedure zapoln(i,j:integer);
begin
for i:=1 to 3 do
for j:=1 to 3 do
begin
gotoxy(x*2,y*2);
textcolor(3);
if (mas[i,j]=2) then write('O');
textcolor(2);
if (mas[i,j]=1) then write('X');
if (mas[i,j]=0) then write(' ');
end;
end;

begin
clrscr;
x:=1;
y:=1;

writeln('/-----\');
writeln('| | | |');
writeln('|-----|');
writeln('| | | |');
writeln('|-----|');
writeln('| | | |');
writeln('\-----/');

gotoxy(x*2,y*2);
textcolor(1);
write('X');

while key<>#27 do

begin
key:=readkey;

case key of
#72:if y>1 then
begin
zapoln(x,y);
y:=y-1;
gotoxy(x*2,y*2);
textcolor(4);
write('X');
end;

#77:if x<3 then
begin
zapoln(x,y);
x:=x+1;
gotoxy(x*2,y*2);
textcolor(4);
write('X');
end;

#75:if x>1 then
begin
zapoln(x,y);
x:=x-1;
gotoxy(x*2,y*2);
textcolor(4);
write('X');
end;

#80:if y<3 then
begin
zapoln(x,y);
y:=y+1;
gotoxy(x*2,y*2);
textcolor(4);
write('X');
end;

#13:if (mas[x,y]=0) then
mas[x,y]:=1;

end;
end;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Lesha]

program igra;
uses crt {, graph} ;
var mas:array[1..3,1..3] of integer;
x,y,i,j:integer;
key:char;
turn : boolean;

procedure zapoln(zn:byte);
begin
for i:=1 to 3 do 
	for j:=1 to 3 do begin
		gotoxy(x*2,y*2);
		textcolor(3);
		if (zn=2) then write('O');
		textcolor(2);
		if (zn=1) then write('X');
		if (zn=0) then write(' ');
	end;
end;

function xOrOchar(turn: boolean):char;
begin
	if turn then xOrOchar:='X' else xOrOchar:='O';
end;

BEGIN { start program }
clrscr;
x:=1;
y:=1;
turn:=true;
for i:=1 to 3 do 
	for j:=1 to 3 do mas[i][j]:=0;

writeln('/-----\');
writeln('| | | |');
writeln('|-----|');
writeln('| | | |');
writeln('|-----|');
writeln('| | | |');
writeln('\-----/');

gotoxy(x*2,y*2);
textcolor(1);
write('X');

while key<>#27 do begin
	key:=readkey;
	case key of
	#72: if y>1 then begin
		zapoln(mas[x][y]);
		y:=y-1;
		gotoxy(x*2,y*2);
		textcolor(4);
		write(xOrOchar(turn));
	end;
	#77: if x<3 then begin
		zapoln(mas[x][y]);
		x:=x+1;
		gotoxy(x*2,y*2);
		textcolor(4);
		write(xOrOchar(turn));
	end;
	#75: if x>1 then begin
		zapoln(mas[x][y]);
		x:=x-1;
		gotoxy(x*2,y*2);
		textcolor(4);
		write(xOrOchar(turn));
	end;
	#80: if y<3 then begin
		zapoln(mas[x][y]);
		y:=y+1;
		gotoxy(x*2,y*2);
		textcolor(4);
		write(xOrOchar(turn));
	end;
	#13: if (mas[x][y]=0) then begin
			if turn then mas[x][y]:=1 else mas[x][y]:=2;
			turn:=not turn;
		end;
	end; { end case }
end; {end while }
end.

[X_ALONE_X]

Спасибо. Понял свои ошибки.