program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
type
  arr = array of array of integer;
var
    n,i,j : integer;
    M: arr;

procedure swap(var a:integer;var b: integer);
var c:integer;
begin
  c:=a;
  a:=b;
  b:=c;
end;

function getmatrix: arr;
begin
write('Input count of column and lines of matrix: ');
  readln(n);
  SetLength(M,n);
  for i:=0 to n-1 do
    SetLength(M[i],n);
  for i:=0 to n-1 do
    for j:=0 to n-1 do begin
      write('Input G[',i+1,'][',j+1,']: ');
      readln(M[i][j]);
    end;
  getmatrix:=M;
end;

procedure printfmatrix(M: arr);
var i,j: integer;
begin
writeln('Matrix:');
for i:=0 to n-1 do begin
    for j:=0 to n-1 do
      write(M[i,j],' ');
    writeln('');
  end;
writeln;
end;

function changematrix(M: arr): arr;
var i,j,max: integer;
begin
  for i:=0 to n-1 do begin
    max:=M[i,0];
    for j:=0 to n-1 do begin
      if M[i,j] > max then max:=j;
    end;
    swap(M[i,max], M[i,i]);
  end;
  changematrix:=M;
end;

begin
//function have returned value, but proicedure havent;
  M:=getmatrix;
  printfmatrix(M);
  changematrix(M);
  printfmatrix(M);
  readln;
end.