с базой данных, с 3-им заданием

Program array2d;
var
    v_range, v_neg, i, j, n: integer;
    array: array of array of integer;
    i_range, i_neg: array[1..2] of integer;
begin
randomize;
write('введіть n: ');
readln(n);
SetLength(array, n, n);
write('введіть а та b: );
readln(a, b);
for i:= 1 to n do
    for j:= 1 to n do
        array(i, j) := random(100);
for i:= 1 to n do
    for j:= 1 to n do
    begin
        if array(i, j) in a..b then
        begin
              if Assigned(v_neg) then
                  break; {перевірка, чи є негативне значення знайденим}
              v_range := array(i, j);
              i_range[1] := i;
              i_range[2] := j;
        end;
        if array(i, j) < 0 then
        begin
              if Assigned(v_range) then
                  break;
              v_neg := array(i, j);
              i_neg[1] := 1;
              i_neg[2] := 2;
        end;
    end;
if Assigned(v_range) and Assigned(v_neg) then
begin
    array(i_range[1], i_range[2]) := v_neg;
    array(i_neg[1], i_neg[2]) := v_range;
end;
writeln('Виконано.');
end.

Существуют различные алгоритмы обмена значениями между двумя ячейками a и b.
1. Самый простой - с использованием промежуточной ячейки

var
  a,b,t:integer;
begin
  a:=10; b:=20; Writeln(a,' ',b);
  t:=a; a:=b; b:=t; Writeln(a,' ',b)
end.

2. Обмен без использования дополнительной памяти при сложения и вычитания

var
  a,b:integer;
begin
  a:=10; b:=20; Writeln(a,' ',b);
  b:=a+b; a:=b-a; b:=b-a; Writeln(a,' ',b)
end.

3. Обмен без использования дополнительной памяти при логической операции "исключающее ИЛИ"

var
  a,b:integer;
begin
  a:=10; b:=20; Writeln(a,' ',b);
  a:=a xor b; b:=a xor b; a:=a xor b; Writeln(a,' ',b)
end.

Язык PascalABC.NET дополнительно предлагает простые обмена.

4. Обмен при процедуры Swap

var
  a,b:integer;
begin
  a:=10; b:=20; Writeln(a,' ',b);
  Swap(a,b); Writeln(a,' ',b)
end.

5. Обмен на основе кортежного присваивания

var
  a,b:integer;
begin
  a:=10; b:=20; Writeln(a,' ',b);
  (a,b):=(b,a); Writeln(a,' ',b)
end.