Юзер вводит 17 чисел. посчитайте сколько из них больше нуля

// Пример программки на языке Паскаль.

var
   i, x, y : integer;                           // объявляем переменные целочисленного типа.
begin
   writeln(Введите 17 чисел:);      // вывод строчки на экран.
   for i:=1 to 17 do                        // начало цикла.
      begin
        readln(x);                             // считываем число, введенное с клавиатуры.
        if (x gt; 0) then                      // проверяем, что число больше нуля.
           y := y + 1;                       // считаем количество чисел больше нуля.
      end;
   write(Количество чисел больше нуля одинаково: : , y);         // вывод строчки на экран.
end.