Определить, сколько раз среди последовательности целых чисел встречается максимальное и минимальное

var i,n,s,max,kmax:integer;
begin
 write('n=? ');readln(n);
 write('1: ');readln(s);
 kmax:=1;max:=s;
 for i:=2 to n do
  begin
   write(i,': ');readln(s);
   if s>max
    then begin max:=s;kmax:=1 end
    else
     if s=max
      then inc(kmax);
  end;
 writeln('максимальное встречается ',kmax,' раз(а)')
end.

var
  a, N, i, min, max, kolx, koln: integer;
 
begin
  i := 1;
  Writeln('Введите количество чисел: ');
  readln(N);
  Writeln('Введите первое число: ');
  Read(a);
  min := a;
  max := a;
  kolx := 1;
  koln := 1;
  Writeln('Введите ', N - 1, ' целых чисел: ');
  while (i < n) do
  begin
    inc(i);
    Read(a);
    if a < min then 
    begin
      Min := a; 
      koln := 0;
    end;
    if a > max then 
    begin
      Max := a; 
      kolx := 0;
    end;
    if a = min then 
      inc(koln);
    if a = max then 
      inc(kolx);
  end;
  Writeln('Количество максимальных элементов из данного набора = ', kolx);
  Writeln('Количество минимальных  элементов из данного набора = ', koln);
end.