program mang;
uses graph,crt;
var draiver,mood,erinev,kokku,kx,ky,i,teine,t,m,n,s,x,y:integer;
tekst:array[1..10] of string;
sisu:array[1..3,1..9] of integer;
a,nimi1,nimi2,abi,mangija:string;

procedure kirjuta;
begin
textbackground(black);
textcolor(white);
gotoxy(30,5);
writeln('    |    |    ');
gotoxy(30,6);
writeln('____|____|____');
gotoxy(30,7);
writeln('    |    |    ');
gotoxy(30,8);
writeln('____|____|____');
gotoxy(30,9);
writeln('    |    |    ');
gotoxy(30,10);
writeln('    |    |    ');
end;
procedure ring(kx, ky: integer);
begin
gotoxy(kx, ky);
writeln('0');
end;
procedure rist(kx, ky: integer);
begin
gotoxy(kx, ky);
writeln('+');
end;

procedure valikud;
begin
gotoxy(1,1);
writeln('Teil on voimalik valida jargmiste voimaluste vahel:');
gotoxy(1,2);
tekst[1]:='ruut a11';
tekst[2]:='ruut a12';
tekst[3]:='ruut a13';
tekst[4]:='ruut a21';
tekst[5]:='ruut a22';
tekst[6]:='ruut a23';
tekst[7]:='ruut a31';
tekst[8]:='ruut a32';
tekst[9]:='ruut a33';
kokku:=9;
erinev:=1;
end;

procedure joonista;
begin
textbackground(red);
textcolor(white);
gotoxy(3,3);
writeln(tekst[1]);
textbackground(white);
textcolor(red);
for i:=1 to kokku do
begin
gotoxy(3,2+i);
writeln(tekst[i]);
end;
end;



procedure muuda(uus:integer);
begin
textcolor(red);
textbackground(white);
gotoxy(3,2+erinev);
writeln(tekst[erinev]);
erinev:=uus;
textcolor(white);
textbackground(red);
gotoxy(3,2+erinev);writeln(tekst[erinev]);
end;


begin
clrscr;
writeln('Mangija nr.1, sisesta oma nimi!');
readln(nimi1);
writeln('Mangija nr.2, sisesta oma nimi!');
readln(nimi2);
clrscr;
repeat
a:='y';
t:=1;
for m:=1 to 3 do
for n:=1 to 9 do
sisu[m,n]:=0;
t:=2;
valikud;
kirjuta;

repeat
for n:=1 to 9 do
{if sisu[3,n]=0 then writeln('Massiiv pole taidetud.');}
begin
{clrscr;}
for m:=1 to 2 do
{esimene on ring mangija ja teine on rist mangija}
for n:=1 to 9 do
if sisu[m,n]>0 then begin
if n=1 then
begin
x:=32;
y:=5;
end;
if n=2 then
begin
x:=37;
y:=5;
end;
if n=3 then
begin
x:=42;
y:=5;
end;
if n=4 then
begin
x:=32;
y:=7;
end;
if n=5 then
begin
x:=37;
y:=7;
end;
if n=6 then
begin
x:=42;
y:=7;
end;
if n=7 then
begin
x:=32;
y:=9;
end;
if n=8 then
begin
x:=37;
y:=9;
end;
if n=9 then
begin
x:=42;
y:=9;
end;
if m=1 then ring(x,y);
if m=2 then rist(x,y);
end;
if t=2 then
begin t:=1;
mangija:=nimi1
end
else begin
t:=2;
mangija:=nimi2;
end;
gotoxy(25,23);
if t=1 then writeln(nimi1 , ' sisestage oma valik ');
if t=2 then writeln(nimi2 , ' sisestage oma valik ');
joonista;
repeat
abi:=readkey;
if abi=chr(0) then begin
abi:=readkey;
if abi='H' then begin
if erinev>1 then
muuda(erinev-1) else muuda(kokku);
end;
if abi='P' then begin
if erinev<kokku then
muuda(erinev+1) else muuda(1);
end;
end;
until(abi=chr(27)) or (abi=chr(13));
sisu[t, erinev]:=1;
if (sisu[t,1]=1) and (sisu[t,2]=1) and (sisu[t,3]=1) or
 (sisu[t,4]=1) and (sisu[t,5]=1) and (sisu[t,6]=1) or
 (sisu[t,7]=1) and (sisu[t,8]=1) and (sisu[t,9]=1) or
 (sisu[t,1]=1) and (sisu[t,4]=1) and (sisu[t,7]=1) or
 (sisu[t,2]=1) and (sisu[t,5]=1) and (sisu[t,8]=1) or
 (sisu[t,3]=1) and (sisu[t,6]=1) and (sisu[t,9]=1) or
 (sisu[t,1]=1) and (sisu[t,5]=1) and (sisu[t,9]=1) or
 (sisu[t,3]=1) and (sisu[t,5]=1) and (sisu[t,7]=1) then
begin
gotoxy(20,20);
writeln('Selle mangu voitis mangija ',mangija);
a:='Y';
end;
end
{else a:='Y'; }
until a='Y';
gotoxy(25,25);
writeln('Kas soovite veel mangida:y or n');
readln(a);
clrscr;
until (a='N') or (a='n');
end.