Дан массив числе А(n). Найти Sra положительных элементов и Sg отрицательных элементов

//Pascal ABC.NET 3.1 сборка 1256 Const  n=5; begin var a:=ReadArrInteger(n); var Sra:=a.where(x -> x>0).Count; writeln('Положительных:',Sra); var Sg:=a.Where(x -> x<0).Count; writeln('Отрицательных:',Sg); end. Пример ввода: -1 1 -2 2 3 Пример вывода: Положительных:3 Отрицательных:2