Написать программку, которая определяет количество положительных частей в массиве Х[1..10],

Uses Crt;
Const
   N = 10;
Var
   X:array[1..N] of integer;
   i,k:integer;
Begin
ClrScr;
Write('Введите массив целых чисел X(',N,'): ');
For i:= 1 to N do
    Begin
    Read(X[i]);
    if X[i] gt; 0 then k:=k+1
    End;
WriteLn('Количество положительных элементов X(',N,'): ',k);
ReadLn
End.


Пример работы программки:

Введите массив целых чисел X(10): 1 2 3 -4 -5 -6 7 8 9 0
Количество положительных частей X(10): 6

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

begin
  var x:=ReadArrInteger(10);
  Writeln('Кол-во положительных равно ',x.Where(t-gt;tgt;0).Count)
end.

Пример
-15 18 -6 11 0 5 -3 -14 20 19
Кол-во положительных одинаково 5