[stil]

Код:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var i,j,i1,j1,n: integer;
    a: array of array of real;
    b: array of real;
    min:real;
begin
write('n=');
read(n);
setLength(a,n,n);
setLength(b,n);
for i:=0 to n-1 do
  for j:=0 to n-1 do begin
    write('a[',i,',',j,']');
    read(a[i,j]);
  end;
min:=abs(a[0,0]);
for i:=0 to n-1 do
  for j:=0 to n-1 do begin
    if min>abs(a[i,j]) then begin
      min:=abs(a[i,j]);
      i1:=i;
      j1:=j;
    end;
  end;
for i:=0 to n-1 do begin
  b[i]:=a[i1,i];
  a[i1,i]:=a[n-1,i];
  a[n-1,i]:=b[i];
end;
for i:=0 to n-1 do begin
  b[i]:=a[i,j1];
  a[i,j1]:=a[i,n-1];
  a[i,n-1]:=b[i];
end;
for i:=0 to n-1 do begin
  for j:=0 to n-1 do
    write(a[i,j]:6:2,' ');
  writeln;
end;
readln;
readln;
readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.