Последовательно ввести n натуральных чисел и определить сколько среди них было введено больших первого

Var
 n, f, x, k, i: integer;
begin
 read(n);
 read(f);
 k := 0;
 for i := 2 to n do
   begin
   read(x);
   if x > f then
     k := k + 1
   end;
 write(k)
end.