Лабы / 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.