Помогите!:с нужно составить алгоритм на языке программирования Паскаль.

Дан массив, состоящий из 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.