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

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