Составить программу: дан одномерный массив. подсчитайте, сколько раз встречается в этой таблице максимальное по величине число

Begin
 var n:=readinteger();
 var ar:=readarrinteger(n);
 write(ar.Where(x->x=ar.max).Count);
end.