帮帮看看我的free pascal 程序

这个程序调试没有问题,但运行时有问题,好象是调用过程check时出了问题
program movegames;
uses crt;
label 1;
var
a:array [1..8,1..8] of 0..4;
k1,k2,b,c,v1,v2,v3,v4,n:integer;
yn:char;
procedure check;
var
n,i,j1,j2,j3:integer;
tf:boolean;
begin
tf:=true;
randomize;
while tf=true do
begin
for i:=1 to 8 do
begin
for j1:=1 to 8 do
for j2:=1 to 8 do
for j3:=1 to 8 do
if (a[i,j1]=a[i,j2]) and (a[i,j1]=a[i,j3]) and (a[i,j2]=a[i,j3]) then
begin
tf:=true;
a[i,j1]:=random(4);
a[i,j1]:=random(4);
a[i,j1]:=random(4);
n:=n+1;
end;
if (a[j1,i]=a[j2,i]) and (a[j1,i]=a[j3,i]) and (a[j2,i]=a[j3,i]) then
begin
tf:=true;
a[j1,i]:=random(4);
a[j2,i]:=random(4);
a[j3,i]:=

看看我的情况，帮帮我好吗？ ~~~~~ ~帮帮我看看我的电脑配置 大师帮帮我看看我的姻缘 看看我的故事帮帮我 帮帮我，看看我的配置怎么样？ 希望能帮帮我的帮帮我，进来看看也好 三国10的看看 帮帮我 知道的进来看看，帮帮我？ 帮帮我看看女还的回信 帮帮看看我的眼睛怎么了？