在pascal做五子棋

1.不懂你的问题
2.五子棋没有,井字过三关就有一个:
双人的

const st:array['1'..'2']of string=('Player1 win!!!',
'Player2 win!!!');
var map:array[1..3,1..3]of char;
x,y:longint;

procedure print;
var i,j:longint;
begin
for i:=1 to 100 do writeln;
for i:=1 to 3 do
begin
for j:=1 to 3 do
write(map[i,j]);
writeln;
end;
end;

procedure check;
begin
if (map[1,1]=map[1,2])and(map[1,1]=map[1,3])and(map[1,1]<>'*') then begin print;writeln(st[map[1,1]]);readln;halt;end;
if (map[2,1]=map[2,2])and(map[2,1]=map[2,3])and(map[2,1]<>'*') then begin print;writeln(st[map[2,1]]);readln;halt;end;
if (map[3,1]=map[3,2])and(map[3,1]=map[3,3])and(map[3,1]<>'*') then begin print;writeln(st[map[3,1]]);readln;halt;end;
if (map[1,1]=map[2,1])and(map[1,1]=map[3,1])and(map[1,1]<>'*') then begin print;w