Найти сумму элементов массива, расположенных после минимального элемента

uses crt;
const n=10;
var m:array[1..n]of integer;
i,j,k,min:integer;
 
begin
 clrscr;
 write('Массив -> ');
 for i:=1 to n do read(m[i]);
 readln;
 k:=0;
 for i:=1 to n do if m[i]=0 then inc(k);
 write('Всего элементов, равных нулю - ',k);
 min:=1;
 for i:=1 to n do if m[i]<m[min] then min:=i;
 k:=0;
 for i:=min+1 to n do k:=k+m[i];
 writeln('Сумма элементов после MIN = ',k);
 for i:=1 to n do
 for j:=1 to n-1 do
 if abs(m[j])>abs(m[j+1]) then
 begin
  k:=m[j];
  m[j]:=m[j+1];
  m[j+1]:=k;
 end;
 writeln('Отсортированный массив');
 for i:=1 to n do write(m[i],' ');
 readln;
end.

uses crt;
var a:array[1..100] of real;
    i,j,n,k,ai:integer;
    min,sum,x:real;
begin
ClrScr;
Randomize;
Write('n=');
Readln(n);
 for i:=1 to n do
  begin
   a[i]:=-10+random(20);
   Write(a[i]:0:1,'  ');
  end;
Writeln;
min:=1;
 for i:=1 to n do
  begin
   if a[i]=0 then
    k:=k+1;
   if a[i]<min then
    begin
     min:=a[i];
     ai:=i;
    end;
  end;
sum:=0;
 for i:=ai+1 to n do
  sum:=sum+a[i];
Writeln('Min ',min:0:1,' [',ai,']');
Writeln('Sum=',sum:0:1);
Writeln('K=',k);
 for i:=1 to n do
   a[i]:=abs(a[i]);
   for i:=1 to n do
    for j:=i to n do
     if a[i]>a[j] then
      begin
       x:=a[i];
       a[i]:=a[j];
       a[j]:=x;
      end;
 for i:=1 to n do
  Write(a[i]:0:1,'  ');
Readln;
end.