Восьмиэлементные ассоциативные кольца

q:=0;

for i:=0 to 7 do begin

for j:=0 to 7 do read(f1,a1[i,j]);

readln(f1);

end;

for i:=0 to 7 do

for j:=0 to 7 do

if a1[i,j]=b[i,j] then inc(q);

if q=64 then begin inc(h);

x:=1;

end

else

for i:=0 to 7 do begin

for j:=0 to 7 do write(f8,a1[i,j],' ');

writeln(f8);

end;

inc(n);

readln(f1);

writeln(f8);

end;

if x=1 then t:=t-2 else t:=t-1;

reset(f8);

rewrite(f1);

while k<=t do begin

for i:=0 to 7 do begin

for j:=0 to 7 do read(f8,a1[i,j]);

readln(f8);

end;

for i:=0 to 7 do begin

for j:=0 to 7 do write(f1,a1[i,j],' ');

writeln(f1);

end;

inc(k);

end;

end;}

procedure newb(y:mas1;a:mas; var b:mas);

var i,j,z1,z2,z3:integer;

begin

for i:=0 to 7 do begin

z1:=a[1,i]; a[1,i]:=a[y[1],i]; a[y[1],i]:=z1;

z2:=a[2,i]; a[2,i]:=a[y[2],i]; a[y[2],i]:=z2;

z3:=a[3,i]; a[3,i]:=a[y[3],i]; a[y[3],i]:=z3;

end;

for j:=0 to 7 do begin

z1:=a[j,1]; a[j,1]:=a[j,y[1]]; a[j,y[1]]:=z1;

z2:=a[j,2]; a[j,2]:=a[j,y[2]]; a[j,y[2]]:=z2;

z3:=a[j,3]; a[j,3]:=a[j,y[3]]; a[j,y[3]]:=z3;

end;

for i:=0 to 7 do

for j:=0 to 7 do begin

if a[i,j]=1 then a[i,j]:=-1;

if a[i,j]=y[1] then a[i,j]:=-y[1];

end;

for i:=0 to 7 do

for j:=0 to 7 do begin

if a[i,j]=-1 then a[i,j]:=y[1];

if a[i,j]=-y[1] then a[i,j]:=1;

end;

for i:=0 to 7 do

for j:=0 to 7 do begin

if a[i,j]=2 then a[i,j]:=-2;

if a[i,j]=y[2] then a[i,j]:=-y[2];

end;

for i:=0 to 7 do

for j:=0 to 7 do begin

if a[i,j]=-2 then a[i,j]:=y[2];

if a[i,j]=-y[2] then a[i,j]:=2;

end;

for i:=0 to 7 do

for j:=0 to 7 do begin

if a[i,j]=3 then a[i,j]:=-3;

if a[i,j]=y[3] then a[i,j]:=-y[3];

end;

for i:=0 to 7 do

for j:=0 to 7 do begin

if a[i,j]=-3 then a[i,j]:=y[3];

if a[i,j]=-y[3] then a[i,j]:=3;

end;

for i:=0 to 7 do

for j:=0 to 7 do b[i,j]:=a[i,j];

{glav(b);}

for i:=0 to 7 do begin

for j:=0 to 7 do