Вводится последовательность из N произвольных чисел. Найти наибольшее число в последовательности. Если таких чисел неКак узнать сколько, определить, Как узнать сколько их.программирование

var  co, N, max: integer;
begin  max := 0;  co := 1;  readln(N);  for var i := 1 to N do  begin    readln(N);    if N > max then      max := N    else if N = max then      co += 1;  end;  if co <> 1 then    writeln(max, ' ', co)  else    writeln(max);end.