uses crt; var f:text; i,j:integer; begin assign(f,'matches.dat'); reset(f); readln(f,n); for i:=1 to n do for j:=1 to n do read(a[i,j]);