Problém s polem – Pascal – Fórum – Programujte.com

Dobrý den,

mám za úkol najít v poli největší prvek, který se v zadané posloupnosti vyskytuje alespoň čtyřikrát.

Zatím jsem udělal:

 Max := 0;
    for i:= 1 to N do
     begin
       if Prvek[i] > Max then
         begin
          Max := Prvek[i];
          Pocet := 0;
         end;

Což mi zjistí max prvek, dále jsem udělal:

if (Prvek[i] = Max) then
    begin
     inc(Pocet);
    end;

Což mi zjistí kolikrát se tam vysktytuje, ale mám problém s poslední podmínkou..

if (Prvek[i] > Max) and (Pocet >=4) then
  begin
  Vys := Max;
  end;

Prosím o radu.

Těžko hádat, jak to máš vcelku, ale z tohoto bych si tipnul, že větší prvek bereš jako nové maximum, i když nesplňuje ten počet výskytů.