program Project11;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

function MatrixInput(): integer;

var i, j, imin, imax, size: integer;
    a: array [1..size, 1..size] of integer;
begin
   Writeln('Enter matrix size:');
   Readln (size);
  randomize;
  writeln('Source matrix:');
  for i := 1 to size do
    begin
      for j := 1 to size do
        begin
          a[i, j] := -10 + random(50);
          write(a[i, j]:4)
        end;
      writeln
    end;
    MatrixInput := a;
end;

procedure FindEl(const size: integer; a: array [1..size, 1..size] of integer);
var
   i, j, imin, imax: integer;
begin
  imin := 1;
  imax := 1;
  for i := 1 to size do
    if a[i, i] < a[imin, imin]
      then imin := i
      else if a[i, i] > a[imax, imax]
        then imax := i;
  writeln('Минимальный  элемент главной диагонали матрицы: a[', imin:2, ', ', imin:2, '] = ', a[imin, imin]:3);
  writeln('Максимальный элемент главной диагонали матрицы: a[', imax:2, ', ', imax:2, '] = ', a[imax, imax]:3);
end;

procedure NewMatrix(const size: integer; a: array [1..size, 1..size] of integer);
var
   i, j, imin, imax: integer;
begin
  i := a[imin, imin];
  a[imin, imin] := a[imax, imax];
  a[imax, imax] := i;
  writeln('Результат:');
  for i := 1 to size do
    begin
      for j := 1 to size do write(a[i, j]:4);
      writeln
    end;
  readln
end;

var
   i, j, imin, imax, size: integer;
   Matrixx :array [1..size, 1..size] of integer;
begin
   Matrixx := MatrixInput;
   FindEl(size, Matrixx);
   NewMatrix(size, Matrixx);
end.