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

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