Дан массив [1..n] и число m. найдите количество элементов больше числа l

Var   m,n,k,i: integer;   a: array[1..1000] of integer; begin   write('write size array: '); readln(n);   write('write m: '); readln(m);   k: =0;   for i: =1 to n do   begin     read(a[i]);     if a[i]> m     then inc(k);   end;   writeln(k);   readln;   readln end.