Вопрос по информатике:

Пожалуйста помогите!
Я написал программу которая вычисляет наибольший элемент одномерного массива и сколько раз он встречается.Но проблема в том что часть программы которая вычисляет кол-во макс. элементов не обновляет макс.элементы.То есть если я задам числа 22, 22, 33, 33, 33 то оно выдаст что макс.элементов 5, а если я задам числа 33 33 33 22 22 то она выдаст правильный ответ - "три макс. элемента".


Program FW_PIMAX;
Uses CRT;
var
a : array[1..5] of integer;
i,max,k : integer;
begin
clrscr;
i := 1;
max := a[1];
k := 0;
while i <= 5 do
begin
write('a[i] = ');
readln(a[i]);
if (a[i] >= max) then
begin
max := a[i] ;
k := k + 1;
i := i + 1;
end
else
begin
i := i + 1;
end;
end;
writeln('max: ',max);
writeln('kolvo max: ',k);
end.