Лабы / Pascal.1.курс / part 1 / LABA2 / VAR23 / SORTUNIT

unit sortunit;
interface
         uses global;
         procedure s(var a:tar);

implementation
              procedure s(var a:tar);
              var i,j,max,poz:integer;
              begin
                   for i:=1 to n do
                       begin
                            max:=a[i];
                            if i<>n then
                            begin
                            for j:=i+1 to n do
                                if abs(max)<abs(a[j]) then
                                   begin
                                     max:=a[j];
                                     poz:=j;
                                   end;
                            a[poz]:=a[i];
                            a[i]:=max;
                            end;
                       end;
              end;
end.