Введите с клавиатуры n чисел.вывести на экран колечество чисел превосходящих первое число.я пишу- begin clrscr; k: =0; for i: =1 to n do begin write(введите число'); readln(n); end; for i: =1 to n do begin if m[i]> m[1] then k: =k+1; end; write(' чисел превосходящих первое число- ',k); у меня всегда выводит 0

Program zadacha;
var   
   k,x,i,n:integer;   
   m:Array[1..100] of Integer;
begin   
  k:=0;   
  readln(n);   
  for i:=1 to n do begin       
     readln(m[i]);   
  end;   
  for i:=2 to n do begin
        if m[i]>m[1] then k:=k+1;
    end;
    write(k);
end.