program Alsaher1503;

var
n, m, indexMaxI, indexMaxJ: byte;
A: array of array of integer;
valueMax: integer;

Begin
write('Введите размерность данной матрицы: ');
readln(n);
setLength(A, n);
writeln('Элементы матрицы А: ');
valueMax:= 0;
indexMaxI:= 0;
indexMaxJ:= 0;


for var i:=0 to n-1 do
  begin
  setLength(A[i], n);
  for var j:=0 to n-1 do
    begin
    A[i][j]:= random(51)-25;
    write(A[i][j]:4);
    if ( abs(A[i][j]) > abs(valueMax) ) then 
      begin
      valueMax := A[i][j];
      indexMaxI:= i;
      indexMaxJ:= j;
      end;
    end;
  writeln();
  end;
  
writeln('Наибольшее по модулю значение элементов матрицы у элемента ', valueMax, ', первый (от начала матрицы) такой элемент - А[', indexMaxI+1, '][', indexMaxJ+1, ']');
writeln('Элементы полученной матрицы В: ');
m:= n-1;

for var i:=0 to m-1 do
  begin
  for var j:=0 to m-1 do
    begin
    if (i < indexMaxI) then
      if (j < indexMaxJ) then  A[i][j] := A[i][j]
        else A[i][j] := A[i][j+1]
    else
    if (j < indexMaxJ) then A[i][j] := A[i+1][j]
      else A[i][j] := A[i+1][j+1];   
    write(A[i][j]:4);
    end;
  setLength(A[i], m); 
  writeln();
  end;
  
setLength(A, m);
end.