Дано N чисел найти количество чисел со значением больше 10

Program murrrr;Var c,a,n,x:integer;Beginread (n);for a:=1 to N do begin read (x) if x>0then c:=c+1; end;write (c,' чисел>10');end.