В одномерном массиве состоящем из 25 вещественных элементов вычислить:Сумму модулей элементов массива расположенных после минимального по модулю элемента. Упорядочить элементы массива по убыванию модулей — Pascal(Паскаль)

uses crt;
const n=25;
type mas=array [1..n] of real;
var m:mas;
    i,j,k:integer;
    min,s:real;
 
Procedure formir(var h:mas);
begin
for i:=1 to n do
    h[i]:=random(10)/1.145-3.12;
end;
 
Procedure vivod(var h:mas);
begin
for i:=1 to n do
    write(h[i]:4:2,'   ');
end;
 
Procedure sort(var h:mas;n:integer);
var buf:real;
     max:integer;
begin
for i:=1 to n-1 do begin
    max:=i;
    for j:=i+1 to n do
        if abs(h[j])>abs(h[max]) then max:=j;
     buf:=abs(h[i]);
     h[i]:=abs(h[max]);
     h[max]:=buf;
end;
for i:=1 to n do
    write(abs(h[i]):4:2,' ');
end;
 
 
begin
clrscr;
randomize;
formir(m);
vivod(m);
readln;
min:=abs(m[1]);
for i:=2 to n do
       if abs(m[i]) <= min then begin
                                min:=abs(m[i]);
                                k:=i;
                                end;
for i:=k+1 to n do
     s:=s+abs(m[i]);
sort(m,n);
writeln;
writeln(s:4:2);
readln;
 
end.