Дан одномерный массив. Проверить, встречается ли в нём максимальное значение более 1 раза.

var   max,i,k:integer;   a:array[1..10]of integer; begin for i:=1 to 10 do   begin   a[i]:=random(10);   write(a[i]:3);   if a[i]=max then k:=k+1;   if a[i]>max then     begin     max:=a[i];     k:=1;     end;   end; writeln; if k>1 then   writeln('Да (max=',max,'; k=',k,')')   else writeln('Нет'); end.