вопрос к тем,кто шарит в программировании (по паскалю) :
у двовимірному масиві масиві,що складається з цілочисельних елементів,поміняти місцями в кожному стовпці перший належить відрізку [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;beginrandomize;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) thenbegin    array(i_range[1], i_range[2]) := v_neg;    array(i_neg[1], i_neg[2]) := v_range;end;writeln('Виконано.');end.