Даны целые числа s1,. определить: а) сколько раз среди них встречается максимальное.

Program chisla;
vari,n,s1,sn,max,kolvo: byte;s: array[1..255] of byte;
beginfor i:=1 to 255 do s[i]:=random(255);max:=s[1];kolvo:=0;writeln('vvedite kol-vo chisel');readln(n);sn:=s[n];for i:=1 to n do write(s[i]:4);writeln;for i:=1 to n do if s[i]>max then   begin max:=s[i]; kolvo:=kolvo+1; end;
writeln('s1=',s[1], ' sn=',sn, ' max=', max,' kolvo max=',kolvo);end.