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

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.