Найти количество элементов массива больших чем его первый элемент

Var
k,s,i:longint;
m:array[1..100] of longint;
begin
 writeln('Введите количество элементов в массиве');
 read(k);

 writeln('Введите элементы массива');
 for i:=1 to k do
  read(m[i]);
 
 s:=0;

 for i:=1 to k do
 if  m[i]>m[1] then s:=s+1;
 
writeln(s);
end.

Egsdgpsdgadiogjasklgja