I don't know why my program doesn't run. I would really appreciate your help. here's my program:
USES graph,crt;
type tegla=record
x,y:integer;
ertek:0..2;
end;
var gd,gm:integer; i,j:integer; c:char; jatekos:integer;
a:array[1..3,1..3]of tegla;
lx,ly:integer;
procedure tabla;
var x,y,i,j:integer;
begin
lx:=getmaxx div 3;
ly:=getmaxy div 3;
for i:=1 to 3 do begin
y:=(i-1)*ly;
for j:=1 to 3 do begin
x:=(j-1)*lx;
a[i,j].x:=x;
a[i,j].y:=y;
a[i,j].ertek:=0;
setbkcolor(10);
setcolor(9);
rectangle(a[i,j].x,a[i,j].y,a[i,j].x+lx,a[i,j].y+ly);
end;
end;
end;
procedure aktival(i,j:integer);
begin
setcolor(red);
rectangle(a[i,j].x,a[i,j].y,a[i,j].x+lx,a[i,j].y+ly);
end;
procedure visszaallit(i,j:integer);
begin
setcolor(9);
rectangle(a[i,j].x,a[i,j].y,a[i,j].x+lx,a[i,j].y+ly);
end;
procedure rajzolx(i,j:integer);
begin
setcolor(5);
line(a[i,j].x,a[i,j].y,a[i,j].x+lx,a[i,j].y+ly);
line(a[i,j].x+lx,a[i,j].y,a[i,j].x,a[i,j].y+ly);
end;
procedure rajzol_0(i,j:integer);
begin
setcolor(13);
circle(a[i,j].x+lx div 2, a[i,j].y+ly div 2, 50);
end;
procedure kinyer(i,j:integer);
begin
jatekos:=1;
if a[1,1]=a[2,2] and a[3,3]=a[1,1] and a[2,2]=a[3,3] or a[3,1]=a[2,2] and a[1,3]=a[3,1] and a[1,3]=a[2,2] then
if jatekos then begin cleardevice;
writeln('x nyert!');
end
else if jatekos+1 then begin cleardevice;
writeln('O nyert!');
end
else for i:=1 to 3 do begin
if a[i,1]=a[i,2] and a[i,1]=a[i,3] and a[i,2]=a[i,3] or a[1,i]=a[2,i] and a[1,i]=a[3,i] and a[2,i]=a[3,i] then if jatekos then begin cleardevice;
writeln('x nyert');
end
else if jatekos+1 then begin cleardevice;
writeln('O nyert!');
end;
end;
Begin
initgraph(gd,gm,' ');
tabla;
jatekos:=1;
i:=2;
j:=2;
aktival(i,j);
repeat
c:=readkey;
if ord(c)=0 then begin
c:=readkey;
case ord(c)of
72: if i>1 then begin visszaallit(i,j); dec(i); aktival(i,j);end;
77:if j<3 then begin visszaallit(i,j); inc(j); aktival(i,j); end;
80:if i<3 then begin visszaallit(i,j); inc(i); aktival(i,j); end;
75:if j>1 then begin visszaallit(i,j); dec(j); aktival(i,j); end;
end;
end;
if ord(c)=13 then begin
if a[i,j].ertek=0 then
if jatekos=1 then begin rajzolx(i,j);
a[i,j].ertek:=1;
jatekos:=2;
end
else begin rajzol_0(i,j);
a[i,j].ertek:=2;
jatekos:=1;
end;
end;
until ord(c)=27;
kinyer(i,j);
end;
end.
I hope you can help me. Thank you a lot!
