Отыскать творение отрицательных элементов массива из 10 случайных целых чисел от

var
  i, n: integer;                            // объявляем переменные целочисленного типа.
  arr: array [1..10] of integer;     // объявляем массив, размерностью 10.
  s : string;                               // объявляем переменную строкового типа.
begin
   n := 1;                      // нужно, чтоб творенье не было нулевым.
   for i := 1 to 10 do      // начало цикла.
     begin
        arr[i] := random(-20, 20);    // заполняем элемент массива числом из спектра -20; 20.
        s := s + inttostr (arr[i])+ ; // записываем массив в одну строчку.
        if (arr[i] lt; 0) then n := n * arr[i]; // считаем творение отрицательных частей.
     end;
  writeln (Начальный массив: , s);  // вывод начального массива на экран.
  writeln(Творенье отрицательных массива одинаково: , n); // вывод результата на экран.
end.