С помощью цикла создать программу ,которая обеспечит ввод n целых чисел и определяющую,сколько из них принимает наибольшее значение и каково это значение — Pascal(Паскаль)

uses crt;
var n,i,max,k,a:integer;
begin
clrscr;
write('n=');
readln(n);
write('max=');
readln(max);{читаем первое число, пока оно максимальное}
k:=1;{количество=1}
for i:=2 to n do
 begin
  write('a=');
  readln(a);{вводим остальные числа}
  if a=max then inc(k){если= макс, считаем}
  else if a>max then{если больше}
   begin
    k:=1;{снова 1}
    max:=a;{новый макс}
   end;
  end;
write('max=',max,'  kol=',k);
readln
end.