Нати номера тех элементов массива , значение которых больше заданного числа c

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