Составить программу в паскале , которая в массиве из десяти целых чисел считает среднее арифметическое отрицательных.

Const n=10; 
var a:array[1..n] of integer;
i,s,k:integer; 
begin
Randomize;
writeln(Массив A:);
for i:=1 to n do
 begin
 a[i]:=random(51)-25;
 write(a[i]:4);
 end;
writeln;
s:=0; k:=0;
for i:=1 to n do
 if a[i]lt;0 then begin s:=s+a[i]; k:=k+1; end;
writeln(s = ,s, k = ,k);
if kgt;0
 then writeln(Среднее арифметическое отрицательных = ,s/k)
 else writeln(Отрицательных нет);
end.

Пример:
Массив A:
 -11  11  13   9 -11  -2  18 -18   3 -14
s = -56 k = 5
Среднее арифметическое отрицательных = -11.2

// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadArrInteger(Вводите:,10);
  Writeln(Ср.арифм. отрицательных чисел ,a.Where(x-gt;xlt;0).Average)
end.

Пример
Вводите: 5 -3 2 8 11 21 -42 16 0 5
Ср.арифм. отрицательных чисел -22.5