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

Program zadacha;
var a: array[1..10] of integer;
k,i: integer;
begin
for i:=1 to 10 do
begin
write ('Введите a[',i,']=');
readln (a[i]);
end;
for i:= 2 to 10 do
begin
if a[i]>a[1] then k:=k+1;
end;
writeln ('Количество элементов массива, больших, чем его первых элемент, равно ',k);
end.