составить программу в Pascal подсчета числа тех элементоводномерного массива A(n) что по модулю превосходят предшествующ

Question

помогите пожалуйста

выдал 10 ошибку.. .

составить программу в Pascal подсчета числа тех, элементов одномерного массива A(n), что по модулю превосходят предшествующие 
это и вся задача

Наталья · Accepted Answer

function Fuck(a: array of Integer): Integer; 
var 
 i, Highest, HCount: Integer; 
begin 
 if Length(a)=0 then Exit; 
 HCount:=0; 
 Highest:=a[0]; 
 if Length(a)>1 then 
 for i:=1 to Length(a)-1 do 
 if sqr(a[1])>sqr(a[0]) then 
 begin 
 Highest:=a[1]; 
 Inc(HCount); 
 end; 
 Result:=HCount; 
end;

Johnny · Answer

допиши задание, не понятно, что надо сделать