Определить максимальный элемент массива и посчитать количество элементов, равных ему

const 
N = 1000;
var
    arr: array[1..N] of integer;
    i, max:    integer ;
begin
    randomize;
    max := 1;
    for i:=1 to N do 
        arr[i] := random(100);
        write(arr[i], ' ');
        if arr[max] < arr[i] then
            max := i;
    end;
    writeln;
    writeln('arr[',max,'] = ',arr[max]);
end.

const
    NMAX = 1000;
var
    ar: Array[0..NMAX - 1] Of Byte; //видимо, имелось ввиду НАТУРАЛЬНЫХ чисел менее 104
    i, iMax: 0..NMAX - 1;
    count, n: 0..NMAX;
begin
    Randomize;
    iMax := 0;
    ReadLn(n);
    for i := 0 to n - 1 do
    begin
        ar[i] := Random(104);
        Write(' ', ar[i]);
        if (ar[i] > ar[iMax])
        then
            iMax := i;
    end;
    WriteLn;
    count := 0;
    for i := 0 to n - 1 do
        if (ar[i] = ar[iMax])
        then
            Inc(count);
    WriteLn(count);
end.

var n, k: integer;
    x, m: real;
begin
  readln(n);
  read(m);
  k := 1;
  for n := 2 to n do
    begin
      read(x);
      if m = x
        then inc(k)
        else if m < x
          then begin
            m := x;
            k := 1
          end
    end;
  readln; //может быть, не нужно, зависит от сайта
  writeln(k)
end.

  Read(n,m);