Программа:
var  f:text; n,r,max,i,k:integer;
begin
assign(f,'maxheight.dat');
reset(f);
readln(f,n);
max:=0; k:=0;
for i:=1 to n do
 begin
 read(f,r);
 if r>max
  then begin max:=r; k:=1; end
  else if r=max then inc(k)
 end;
close(f);
writeln('max=',max,'   k=',k);
end.
------------
Файл maxheight.dat
20
181 164 167 189 184 183 163 163 184 163 182 169 185 189 179 164 172 165 173 161 
Результат на экране:
max=189   k=2