const
  n = 5;

var
  a :array[1..n, 1..n] of integer;
  i, j :integer;

begin

  randomize;
  for i:= 1 to n do
  begin
    for j:= 1 to n do
    begin
      a[i,j]:= random(1000);
      write(a[i,j],' ');
    end;
    writeln;
  end;
  writeln;
 
  for i:= 1 to n do
  begin
    for j:= 1 to n do
    begin
      if i = j then
        a[i,j]:= i;
      write(a[i,j],' ');
    end;
    writeln;
  end;

end.