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

vark,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.