Помогите написать задачу

var i, n, max, c, k, max1: integer;
a: array [1..100] of integer;
begin
{write ('n=');
readln(n);}
n:=30;
max:=0;
writeln ('Массив А [N]:');
for i:=1 to n do
begin
a[i]:= 10 + random (10);
write (a[i]:4);
if a[i] > max then max:=a[i];
end;
writeln;
c:=0;
max1:=0;
for i:=1 to n do
begin
if a[i] = max then inc(c);
if (n-i) >= 2 then
begin
k:=a[i]+a[i+1]+a[i+2];
if k > max1 then max1:=k;
end;
end;
writeln;
writeln ('максимальных чисел (',max,') = ', c);
writeln ('максимальная сумма последовательности из трех чисел в массиве A[N] =', max1);
end.

k:=0;
for i:=1 to 30 do
if a[i]=max then k:=k+1;
а что непонятно, что не получается?

1. Напишите алгоритм подсчета числа элементов, равных максимальному, в числовом массиве из 30 элементов.

Первый цикл - определение максимального элемента
Объявляем переменную max, равной первому элементу массива,
Сравниваем поочередно все элементы массива с переменной max.
Если элемент больше max, присваиваем переменной max значение этого элемента.
На выходе получаем максимальный элемент массива.
Второй цикл - объвляем переменнную-счётчик, например n.
Присваиваем ей значение ноль. Запускаем цикл, в котором сравниваем все элементы массива, с переменной max, если элемент равен max, увеличиваем значение переменной n на единицу. На выходе получаем количество элементов массива, равных максимальному элементу. Бинго!