дан массив из 10 целых чисел определите сколько элементов этого массива имеют максимальное значение

не чет не так упростил не робит

const  n=10;var  i,b,max:integer;       a: array [1..n] of integer;begin   for i:=1 to n do   begin       a[i]:=random(1,50); end;  writeln(a);  max:=a[1];  for i:=1 to n do begin     if max<a[i] then max:=a[i]  end;  writeln(a[1]);  writeln(a);  end.