Написать программу в паскале: в массиве из n элементов найти максимальный из отрицательных элементов массива.

//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)

begin
  Println('Максимальный=',ReadArrInteger(ReadInteger('n->')).Where(t->t<0).Max)
end.

Пример:
n-> 5
-7 8 -6 4 -1
Максимальный= -1