Ребяят, помогите с заданием по информатике. Нужно решить в паскале и желательно с блок схемой. Заранее спасибо

Дан массив из 8 чисел. Найти значение максимального элемента. Если таких элементов несколько, то определить, сколько их.

vari, count, max: integer;a: array [1..8] of integer;beginfor i := 1 to 8 doread(a[i]);max := a[1];for i := 2 to 8 doif a[i] > max thenmax := a[i];count := 0;for i := 1 to 8 doif a[i] = max theninc(count);if count = 1 thenwriteln(max)elsewriteln(count);end.