Определите, сколько элементов массива имеют максимальное значение

uses crt;
const n=10;
var i,max,s:integer;
a:array[1..n] of integer;
begin
clrscr;
write('Vvedite max znachenie ');
readln(max);
writeln('Vvedite elementy massiva');
s:=0;
for i:=1 to n do begin
    readln(a[i]);
    if (a[i]=max) then s:=s+1;
end;
write('Kol-vo max elementov = ',s);
readkey;
end.

uses crt;
const n=10;
var i,max,s:integer;
a:array[1..n] of integer;
begin
clrscr;
writeln('Vvedite elementy massiva');
for i:=1 to n do
    readln(a[i]);
max:=a[1];
for i:=1 to n do
    if (a[i]>=max) then max:=a[i];
for i:=1 to n do
    if (a[i]=max) then s:=s+1;
write('Kol-vo max elementov = ',s);
readkey;
end.

uses
  crt;
 
var
  n, i, max, s: integer;
  a: array[1..255] of integer;
 
begin
  clrscr;
  s := 0;
  writeln('Vvedite kolichestvo elementov massiva');
  readln(n);
  writeln('Vvedite elementy massiva');
  readln(a[1]);
  max := a[1];
  for i := 2 to n do
  begin
    readln(a[i]);
    if a[i] > max then max := a[i];
  end;
  for i := 1 to n do 
  begin
    if a[i] = max then s := s + 1; end;
  write('maximalniy element', max, 'Kol-vo max elementov = ', s);
  readkey;
end.