Помогите!:с нужно составить алгоритм на языке программирования Паскаль.
Дан массив, состоящий из 10 элементов. Определите, сколько элементов этого массива имеют максимальное значение.

var a:array[1..10] of real;b,c:integer;max:real;beginc:=0;writeln('Введите элементы массива');for b:=1 to 10 dobeginreadln(a[b]);end;max:=a[1];for b:=1 to 10 dobeginif a[b]>max then max:=a[b];end;for b:=1 to 10 dobeginif a[b]=max then c:=c+1;end;writeln('Количество элементов,имеющих максимальное значение равняется ',c);end.