Уровень C. Введите массив с клавиатуры и найдите (за один проход)

Создадим массив, который будет содержать семь частей и иметь тип integer, и назовем его A:
A : array [1..7] of integer;
Заполним его некими случайными числами вручную, как сказано в задаче:
A[1] := 5;
A[2] := 7;
A[3] := 3;
A[4] := 7;
A[5] := 4;
A[6] := 5;
A[7] := 7;
Пройдем по нему один раз и добавим несколько критерий:
for i:integer := 1 to 7 do
(if A[1] gt; max_a) then
begin
max_a := A[i];
(if kol gt; 0) then
kol := 1;
end;
else if (A[i] = max_A)
kol := kol + 1;
Смысл в том, чтоб когда цикл обретает новое большее число, он обязан скинуть счетчик на значение 1.
А когда элемент равен наибольшему, нарастить счетчик.