Код:
for x:=1 to ip-1 do
begin
for i:=1 to 9 do
begin
a:=ef[x,i];
for j:=1 to 9 do
if (ef[x,j]=a)and(j<>i) then goto 1;
end;
Имхо опасный код. И вообще лучше избегать метки. Я точно не уловил всю логику программы(фомат входных данных не известен), но вот еще нашел следущее:
Обрати внимания что вложенный цикл использует для итерации туже переменную что и основной - i .
Код:
for i:=co downto 0 do begin
{sozdanie massiva slu4aynyh 4isel}
c:= (ip-1) div 2;
for i:=1 to c do begin
rand[i]:=random(9)+1;
end;
Глянул дальше.. другие циклы тоже используют эту переменную практически до конца программы
