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

program ex;
const N1=1000;
var a:array[1..N1]of real;
    i,n,j:integer;
    min,s:real;
  
begin
randomize;
writeln('количество элементов? ');
readln(n);
for i:=1 to n do
a[i]:=random (5)-2.5;
write('Наш массив: ');
 
for i:=1 to n do
write(a[i],' ');
 
min:=a[1];
for i:=1 to n do
if (abs(min))>(abs(a[i])) then 
min:=a[i];
 
writeln();
for i:=1 to n do
if min=a[i] then 
begin
writeln('номер минимального по модулю = ',i);
break;
end;
 
for i:=1 to n do
begin if a[i]<0 then 
j:=i; break; end;
 
for i:=j+1 to n do
s:=s+(abs(a[i]));
writeln('сумма модулей элементов массива расположенных после первого отрицательного = ',s);
 
end.

var
  a:array of real;
  n,i:integer;
  s:real;
  m:boolean;
begin
  repeat
    write('n=');readln(n);
  until n>0;
  setlength(a,n);
  write('Введите массив:');
  i:=0;s:=0.0;m:=false;
  for n:=0 to n-1 do begin
    read(a[n]);
    if m then s:=s+abs(a[n]);
    if abs(a[n])<abs(a[i]) then i:=n;
    if a[n]<0 then m:=true;
  end;
  writeln('номер минимального по модулю элемента массива:',i+1);
  writeln('сумма модулей элементов массива, расположенных после первого отрицательного элемента:',s);
end.