Заполнить массив положительными и отрицательными числами на промежутке от -40 до

,случайным элементом под элементом 25 Условие не дописано? Либо что с элементом 25?

Var a:array of integer; i,n,s:integer;
Begin
 write('Введите длину массива: ');
 readln(n);
 setlength(a,n+1);
 s:=0;
 for i:=1 to n do
   begin
    a[i]:=random(81)-40;
    if a[i]lt;0 then s:=s+a[i];
   end;
 writeln('Сумма отрицательных частей массива равна ',s);
End.

Var a:array[1..100] of integer; i,n,sum:integer;
begin
randomize;
n := 100; Кол-во частей в массиве
sum := 0;
for i:=1 to n do
a[i] := random(81) - 40;
for i:=1 to n do
if a[i] lt; 0 then
sum := sum + a[i];
writeln(sum);
end.