Вопрос к тем,кто шарит в программировании (по паскалю) : у двовимірному масиві масиві,що складається з цілочисельних елементів,поміняти місцями в кожному стовпці перший належить відрізку [a , b ] і перший негативний елементи;

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.