var
  a: array [1..100, 1..100] of integer;
  n, k, i, j, max, maxi: integer;

begin
  max := -9999;
  maxi := -9999;
  writeln('Введите n');
  readln(n);
  for i := 1 to n do
    for j := 1 to n do
    begin
      writeln('Введи элемент ', i, ' ', j);
      readln(a[i, j]);
    end;
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      write(a[i, j]:3);
    end;
    writeln();
  end;
  for i := 1 to n do
    for j := 1 to n do
    begin
      if i = j then
      begin
        a[i, j] := 1;
      end;
    end;
  for i := 1 to n do
    for j := 1 to n do
    begin
      if a[i, j] > max then
        max := a[i, j]
    end;
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      if a[i, j] > 0 then
      begin
        if maxi < a[i, j] then
          maxi := a[i, j]
      end;
    end;
    if maxi < max then a[i, i] := -1;
  end;
  writeln();
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      write(a[i, j]:3);
    end;
    writeln();
  end;
end.