В одномерном массиве, состоящем из n вещественных элементов, вычислить сумму модулей элементов массива, расположенных перед минимальным по модулю элементом — Pascal(Паскаль)

Uses
 CRT;
Var
 min,imin,i,n:integer;
 sum:real;
 a:array[1..20] of integer;
begin
Clrscr;
repeat
 write('-: ');
 readln(n);
until n in [1..20];
randomize;
min:=abs(MaxInt);
imin:=0;
 for i:=1 to n do
 begin
  a[i]:=random(10)-5;
  write(a[i],' ');
 end;
 writeln;
  for i:=1 to n do
   if abs(a[i])<min then
   begin
    min:=abs(a[i]);
    imin:=i;
   end;
writeln;
writeln('MIN[',imin,']:=',min);
  if imin<>1 then
  begin
   sum:=0;
    for i:=1 to imin-1 do
    begin
     sum:=sum+abs(a[i]);
    end;
writeln('SUM:=',sum:1:0);
end
 else writeln('--');
 readln;
end.