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

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] lt; 0 then                  // если элемент отрицательный.
            sum := sum + arr[i];        // считаем сумму элементов.
      end;
   writeln(Сумма отрицательных частей массива: , sum);   //вывод строчки на экран.
End.