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

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]gt;a[i-1] then

s:=s+1;

end;

writeln(s);

end.

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