var x:array[1..100] of real;
n,i,k:integer; max:real;
begin
write('n=');readln(n);
for i:=1 to n do begin
 write('x[',i,']=');
 readln(x[i]);
 end;
max:=x[1];
for i:=2 to n do
  if x[i]>max then max:=x[i];
k:=0;
for i:=1 to n do
  if x[i]=max then k:=k+1;
writeln('k=',k,'   max=',max);
end.

Пример работы программы:
n=7
x[1]=-6
x[2]=7
x[3]=4.5
x[4]=7
x[5]=-4.2
x[6]=3
x[7]=-5
k=2   max=7