В двумерном массиве, состоящем из целочисленных частей, в каждом столбце поменять

const n=10; m=7;
type mas=array [1..n,1..m] of Integer;

procedure Vvodmas(var D:mas);
nbsp;nbsp;var i,j:Integer;
begin
for i:=1 nbsp;to n do
nbsp;nbsp;for j:=1 nbsp;to m do
nbsp;nbsp;nbsp;nbsp;D[i,j]:=-50+Random(101);
end;

procedure Vivodmas(D:mas);
nbsp;nbsp;var i,j:Integer;
begin
nbsp;nbsp;for i:=1 to n do
nbsp;nbsp;nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;for j:=1 nbsp;to m do Write(D[i,j]:4);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Writeln;
nbsp;nbsp;nbsp;nbsp;end;
end;

procedure Obmen(a,b: real; var D:mas);
nbsp;nbsp;var i,j,p,n1,n2,max: Integer;
begin
nbsp;nbsp;for j:=1 nbsp;to m do
nbsp;nbsp;nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;n1:=1; max:=abs(D[1,j]);считаем первый элемент столбца наивеличайшим по модулю
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;for i:=2 to n do
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;if абс(D[i,j])gt;max then nbsp;найден больший элемент
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;begin n1:=i; max:=абс(D[i,j]) end;

nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;i:=n; перебираем элементы столбца, начиная с последнего
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;while (igt;=1)and (D[i,j]gt;a)and(D[i,j]lt;b) do i:=i-1;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;n2:=i;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;if n2lt;gt;0 then если элемент, не принадлежащий промежутку (a,b), был найден
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;p:=D[n1,j]; D[n1,j]:=D[n2,j]; D[n2,j]:=p; обмен значений
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;end;
nbsp;nbsp;nbsp;nbsp;end;
end;

var D: mas; a,b:Real;
begin
nbsp;nbsp;Randomize; Vvodmas(D);
nbsp;nbsp;Writeln(Начальный массив:); Vivodmas(D);
nbsp;nbsp;Write(Введите через пробел концы промежутка (a,b): ); Readln(a,b);
nbsp;nbsp;Obmen(a,b,D);
nbsp;nbsp;Writeln(Ответ:); Vivodmas(D);
nbsp;nbsp;Readln
end.