найти количество чисел большее 1-му , 10 данных целых чисел.(Паскаль)

var x,y,i: integer;beginy:=0;for i:=1 to 10 dobeginreadln(x);if x>1 then inc(y);end;writeln(y);end.