uses crt;
var a:array[1..10,1..10] of real;
    n,m,i,j,imx,jmx:integer;
    mx:real;
begin
repeat
write('Введите размер матрицы от 2 до 10 n=');
readln(n);
until n in [2..10];
randomize;
writeln('Исходная матрица');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=-9+18*random;
    write(a[i,j]:6:2);
    if i+j=2 then
     begin
      mx:=a[1,1];
      imx:=1;
      jmx:=1;
     end
    else if abs(a[i,j])>abs(mx) then
     begin
      mx:=a[i,j];
      imx:=i;
      jmx:=j;
     end;
   end;
  writeln;
 end;
 writeln('Максимальный по модулю элемент=',mx:0:2,' в строке ',imx,' в столбце ',jmx);
 m:=n;
 if imx<m then
 for i:=imx to m-1 do
 for j:=1 to n do
 a[i,j]:=a[i+1,j];
 m:=m-1;
 if jmx<n then
 for j:=jmx to n-1 do
 for i:=1 to m do
 a[i,j]:=a[i,j+1];
 n:=n-1;
 writeln('Удаление строки ',imx,' и столбца ',jmx);
 for i:=1 to n do
  begin
   for j:=1 to n do
   write(a[i,j]:6:2);
   writeln;
  end;
 end.