В одномерном массиве посчитать количество максимальных элементов

var
  n, maxk, i: integer;
  max, a: real;
 
begin
  maxk := 0;
  read(n);
  for i := 1 to n do
  begin
    read(a);
    if a = max then inc(maxk);
    if i = 1 then max := a;
    if max < a then begin maxk := 0; max := a; end;
  end;
  writeln(maxk + 1);
end.

var
  a: array[1..1000, 1..1000] of integer;
  k, n, i, j: integer;
 
begin
  read(k, n);
  for i := 1 to k do
    for j := 1 to n do
      read(a[i][j]);
  
  for i := 1 to k do
    for j := 1 to n do
      if j = 1 then 
      begin
        a[i][j] := a[i][j] + a[i][n];
        a[i][n] := a[i][j] - a[i][n];
        a[i][j] := a[i][j] - a[i][n];
        break;
      end;
  writeln;
  
  for i := 1 to k do
  begin
    for j := 1 to n do
      write(a[i][j], ' ');
    writeln;
  end;
end.

{самому мне лень :) }