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

Var x,y,i: integer;
begin
y:=0;
for i:=1 to 10 do
begin
readln(x);
if x>1 then inc(y);
end;
writeln(y);
end.