type TIMtr = array [1..10,1..10] of integer;


var a:TIMtr;

    i,n:integer;


function get_a:boolean;
  var fa: text;
      i,j: integer;
      fn:string;
      ok:boolean;
  begin ok:=false;
    repeat
      write('‚ўҐ¤ЁвҐ Ё¬п д ©«  б ¬ ваЁжҐ© (Enter -ўл室!): ');
      readln(fn);
      if length(fn)=0 then break;
      assign(fa,fn);
      {$I-}
      reset(fa);
      {$I+}
      if IOResult <>0 then writeln('” ©« ',fn,' ­Ґ ­ ©¤Ґ­! Џ®ўв®аЁвҐ! ')
      else begin
        readln(fa,n);
        if (n>0) and (n<11) then begin
          for i:=1 to n do
          for j:=1 to n do read(fa,a[i,j]);
          ok:=true
        end
        else writeln('ЋиЁЎЄ ! n ¤®«¦­® Ўлвм ў ЇаҐ¤Ґ« е ®в 1 ¤® 10!');
        close(fa);
      end;
    until ok;
    get_a:=ok;
  end;

procedure putMtr(a: TIMtr;what:string[4]);
  var i,j: integer;
  begin
    write(what);
    for j:=1 to n do write(j:3); writeln;
    write('    ');
    for j:=1 to n do write('---'); writeln;
    for i:=1 to n do begin
      write(i:2,'| ');
      for j:=1 to n do write(a[i,j]:3);
      writeln
    end;
    writeln; writeln
  end;

function mmm(a:TIMtr; n,m,min,max:integer);
  var i,j:integer;
  begin
    for i:=1 to n do begin
        max:=a[i,1];
        for j:=2 to n do begin
          max:=a[i,j];
          if (i=1) or (max<min) then
          min:=max;
          end;
          end;

begin


  while get_a do begin
    writeln('€¬ҐҐ¬ ¬ ваЁжг:');
    putMtr(a,'a');
    SumDiag1;
    writeln('‚ҐЄв®а б㬬 ¤Ё Ј®­ «м­ле н«Ґ¬Ґ­в®ў:');
    for i:=1 to 2*n-1 do write(b[i],' ');
    writeln
  end;
  writeln('‡ Є®­зЁ«Ё ўлзЁб«Ґ­Ёп! Ќ ¦¬ЁвҐ Enter!');
  readln
end.