Определить у скольких из них самый большой рост

program blyaha_muha;
const n = 25;
var a : array [1..n] of integer;
i : byte;
min, max, r: integer;
begin
Randomize;
min := 190;   max := 1;
for i := 1 to n do begin
a[i]:=random(41) + 150; //диапазон роста взял 150..190 см
if (min > a[i]) then min := a[i];
if (max < a[i]) then max := a[i];
end;
r := max;
writeln('самый высокий росте  ', r ,' см.');
end.

program blyaha_muha;
 
const
  n = 25;
 
var
  a: array [1..n] of integer;
  i, count: byte;
  min, max, r: integer;
 
begin
  Randomize;
  min := 190;   max := 1;
  for i := 1 to n do 
  begin
    a[i] := random(41) + 150; //диапазон роста взял 150..190 см
    write(' ', a[i]);
    if (min > a[i]) then min := a[i];
    if (max < a[i]) then max := a[i]
  end;
  r := max;
  writeln;
  writeln;
  writeln('Самый высокий в росте: ', r, ' см.');
  { Находим количество: }
  count := 0;
  for i := 1 to n do
    if a[i] = r then inc(count); //если рост равен максимальному, то увеличиваем количество
  writeln('Количество самых высоких: ', count)
end.