я сделал, только почему то программа не читает из файла переменные i и j, что не так?
Код
Program stepeni_vershin;
var
n,tval,summ: integer;
i,j: byte;
f,f1:text;
begin
assign(f,'graf.in'); reset(f);
assign(f1,'graf.out'); rewrite(f1);
readln(f,n,i,j);
for i:=1 to n do
begin
  summ:=0;
  for j:=1 to n do
  begin
    read(tval);
    summ:=summ + tval;
  end;
  writeln(f1,summ);
end;
close(f);
close(f1);
end.