Найти наибольший по абсолютному значению элемент матрицы; отсортировать столбец, в который входит найденный элемент, по убыванию

mi:=1; mj:=1;
for i:=1 to n do
for j:=1 to m do
if mas[i,j]>mas[mi,mj] then
begin
mi:=i;
mj:=j;
end;

for i:=1 to n-1 do
for j:=i+1 to n do
if mas[i,mj] < mas[j,mj] then
begin
t:=mas[i,mj];
mas[i,mj]:=mas[j,mj];
mas[j,mj]:=t;
end;

uses crt;
var
ms : array [1..100] of integer;
a,b,c,n,min,max : integer;
begin
clrscr;
randomize;
writeln('Enter N:');
readln(n);
for a:=1 to n do begin
    ms[a]:=random(10);
    write(ms[a],' ');
    if ms[a]>max then max:=ms[a];
end;
min:=max;
for a:=1 to n do if ms[a]<min then min:=ms[a];
writeln;
writeln('min= ',min,' max= ',max);
for a:=1 to n do if ms[a]<max-min then ms[a]:=0;
 
for a:=1 to n do
    for b:=a to n do
     if ms[b]>ms[a] then begin
      c:=ms[a];
      ms[a]:=ms[b];
      ms[b]:=c;
     end;
writeln;
for a:=1 to n do write(ms[a],' ');
readkey;
 
end.