[@xsergeyx]

const N = 30;
var a:array[1..N] of integer;
max,l,i : integer;
begin
max=a[1];
for i:=1 to N-1 do
begin
if a[i] < a[i+1] then max:= a[i+1] ;
end;
l=0;
for i:=1 to N do
begin
if a[i] = max then l:=l+1;
end;
writeln(l);
end.

так правильно

помоему так, хотя могу и путать 5 лет прошло уже...