Дан массив,содержащий n элементов. Определить, сколько среди них чисел, больше за i-й элемент массива.

program qq;

var s,i,n:integer;

a:array [0..1000] of integer;

begin

s:=0;

readln (a[0]);

readln(n);

for i:=1 to n do

begin

readln(a[i]);

if a[i]>a[i-1] then

s:=s+1;

end;

writeln(s);

end.

"больше за i-й элемента массива" - это вообще не понятно, пожалуйста в следующий раз пишите вопрос корректнее