Дипломная работа: Восьмиэлементные ассоциативные кольца

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

writeln(f1);

end;

writeln(f1);

end;

readln(f);

inc(t);

end;

end;

begin

clrscr;

assign(f1,'a:\pr.txt');

assign(f2,'a:\iaw.txt');

rewrite(f2);

assign(f,'a:\aw03.txt');

n:=1;

reset(f);

rewrite(f1);

for i:=0 to 7 do begin

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

readln(f);

end;

{if a[i,j]=8 then begin n:=8; goto 1; end;}

alfa(a,b);

readln(f);

w:=0;

for h:=0 to 7 do

for g:=0 to 7 do

if a[h,g]=b[h,g] then inc(w);