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

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]gt;max then   begin max:=s[i]; kolvo:=kolvo+1; end;
writeln(s1=,s[1], sn=,sn, max=, max, kolvo max=,kolvo);end.