не пойму в чём ошибка

[ms.yur]

При проверке паскаль высвечюет "eror in statement" указуя на until в конце фрагмента. Вот етот фрагмент программы. Может ктото знает почему.

repeat
ttt:
r:=random(10)+1;
t:=random(10)+1;
if q[r,t]=9 then goto ttt;
if (q[r-1,t-1]=9)or(q[r-1,t+1]=9)or(q[r+1,t+1]=9)or(q[r-1,t-1]=9)or(q[r-1,t]=9)or(q[r+1,t]=9)or(q[r,t-1]=9)or(q[r,t+1]=9) then
goto ttt;
r5:=random(4)+1;
if r5=1 then
begin
if tr=10 then t5:=3;
if (tr<10)and(tr>7) then t5:=2;
if (tr<8)and(tr>4) then t5:=1;
if tr<5 then t5:=0;
for n:=1 to t5 do
begin
if (q[r-n-1,t-1]=9)or(q[r-n-1,t-1]=9)or(q[r-n+1,t-1]=9)or(q[r-n+1,t-1]=9) then goto ttt;
q[r-n,t]:=9;
r7:=r7+1;
tr:=tr-1;
end;
if r5=2 then
begin
if tr=10 then t5:=3;
if (tr<10)and(tr>7) then t5:=2;
if (tr<8)and(tr>4) then t5:=1;
if tr<5 then t5:=0;
for n:=1 to t5 do
if (q[r-1,t+n-1]=9)or(q[r-1,t+n-1]=9)or(q[r+1,t+n-1]=9)or(q[r+1,t+n-1]=9) then goto ttt;
q[r,t+n]:=9;
r7:=r7+1;
tr:=tr-1;
end;
if r5=3 then
begin
if tr=10 then t5:=3;
if (tr<10)and(tr>7) then t5:=2;
if (tr<8)and(tr>4) then t5:=1;
if tr<5 then t5:=0;
for n:=1 to t5 do
if (q[r+n-1,t-1]=9)or(q[r+n-1,t-1]=9)or(q[r+n+1,t-1]=9)or(q[r+n+1,t-1]=9) then goto ttt;
q[r+n,t]:=9;
r7:=r7+1;
tr:=tr-1;
end;
if r5=4 then
begin
if tr=10 then t5:=3;
if (tr<10)and(tr>7) then t5:=2;
if (tr<8)and(tr>4) then t5:=1;
if tr<5 then t5:=0;
for n:=1 to t5 do
if (q[r-1,t-n-1]=9)or(q[r-1,t-n-1]=9)or(q[r+1,t-n-1]=9)or(q[r+1,t-n-1]=9) then goto ttt;
q[r,t-n]:=9;
r7:=r7+1;
tr:=tr-1;
end;
until r7=10;

[rubius2008]

if r5=1 then
begin

кажись у этого begin потерялся end, проверьте

[ms.yur]

спасибо , так оно и есть