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

Var M:array[1..100] of real;
    i,n,j,k:byte;
    a,b,s:real;
Begin
    write('Введите размерность: ');readln(n);
    writeln('Исходный');
    j:=0;
    For i:=1 to n do
    Begin
      M[i]:=random*10-5;
      write(M[i]:6:2);
      if (j=0)and(M[i]<0) then j:=i;
    End;
    writeln;
    s:=0;
    For i:=j+1 to n do
     s:=s+abs(M[i]);
    writeln('2) = ',s:0:2);
    write('Введите a,b: ');readln(a,b);
    i:=0;
    While i<n do
    Begin
      inc(i);
      if (a<=M[i])and(M[i]<=b) then 
      Begin
        For j:=i to n-1 do
        M[j]:=M[j+1];
        inc(k);
        dec(i);
      End;
    End;  
    For i:=n-k+1 to n do
     M[i]:=0;
    writeln('Преобразованный');
    For i:=1 to n do
     write(M[i]:6:2);
    readln;
End.