Posloupnost - pocet vyskytu maxima – Pascal – Fórum – Programujte.com

Dobry den, mam problem. V dane posloupnosti N mam urcit maximum a pocet jeho vyskytu.

Nalezt maximum jsem jakztakz zvladl, ale jak do toho zakombinovat nalezeni poctu, kolikrat se tam maximum nachazi uz nikoliv, mohl by mi nekdo poradit?

program posloupnost;
var  n, x, M, i: integer;

begin
writeln ('Zadej pocet cisel, ktere bude posloupnost obsahovat:');
readln (n);
writeln ('Zadej cisla posloupnosti:');
M := -MaxInt;
  for i:=1 to n do
  begin
  read (x);
  if x>m then m:=x;
  end;
writeln ('Maximum posloupnosti je cislo:', M);
end.

Dekuji, za jakoukoliv pomoc.

udělej si tam ještě jednu proměnnou cetnost_m a potom jednoduše, když se budou rovnat, tak ji inkrementuj

cetnost_m := 0;
.
.
if (x=m)then 
	cetnost_m = cetnost_m + 1; 
end;
if (x>m)then
	m := x;
	cetnost_m = 1;
end;
.
.

promin za ten zdroják :) nejsem zvyklej na syntax pascalu :)

Děkuji, už jsem na to přišel. díky za pomoc:)