Написать программу на языке паскаль подсчета суммы всех отрицательных элементов массива размерностью 100 элементов

var
i,sum : integer; // объявляем переменные целочисленного типа.
arr : array [1..100] of integer; // объявляем массив.
Begin
for i:= 1 to 100 do // начало цикла.
begin
arr[i] := random(-100,100); // заполняем элемент массива числом от -100 до 100.
if arr[i] < 0 then // если элемент отрицательный.
sum := sum + arr[i]; // считаем сумму элементов.
end;
writeln('Сумма отрицательных элементов массива: ', sum); //вывод строки на экран.
End.