Определить сколько чисел принимает наибольшее значение

Program Prog;
const
    N = 10;
var
    massive: array[1..N] of integer;
    maximum: integer;
    i: integer;
    count: integer;
begin
    Write('Enter ', N, ' numbers : ');
    for i:=1 to N do
        Read(massive[i]);
 
    maximum := massive[1];
    for i:=2 to N do
        if massive[i] > maximum then
            maximum := massive[i];
            
    for i:=1 to N do
        if massive[i] = maximum then
            count := count + 1;
            
    WriteLn(count);
            
    ReadLn;
    ReadLn;
end.

var
  n,i,max,k,x: integer;
begin
  write('Ñêîëüêî ÷èñåë áóäåì ââîäèòü? ');
  readln(n);
  write('Ââåäèòå 1-å ÷èñëî: ');
  readln(max); k:=1;
  for i:=2 to n do
  begin
    write('Ââåäèòå ',i,'-å ÷èñëî: ');
    readln(x);
    if x>max then
    begin
      max:=x;
      k:=1;
    end else if x=max then inc(k);
  end;
  writeln('Íàèáîëüøåå ÷èñëî = ',max,', òàêèõ ÷èñåë ',k,' â ïîñëåäîâàòåëüíîñòè');
  readln;
end.