Заполнить массив положительными и отрицательными числами на интервале…

Var a: array[1… 100] of integer; i,n,sum: integer; beginrandomize; n: =100; {Кол-во элементов в массиве}sum: =0; for i: =1 to n doa[i]: =random (81) — 40; for i: =1 to n doif a[i] < 0 thensum: =sum+a[i]; writeln (sum); end.