помогите решить задачу в паскаль!!!
Последовательность состоит из натуральных чисел и завершается числом 0. Всего вводится не более 10000 чисел (не считая завершающего числа 0). Определите, сколько элементов этой последовательности равны ее наибольшему элементу.Числа, следующие за числом 0, считывать не нужно.
у меня есть такой вариант но нужен еще один 
readln(a);begin
if a > 0 then
if (max = 0) or (a > max) then
begin 
max := a;
k := 1 end
else if a = max then 
inc(k);
end;
until a=0;
write(k);
end.

var t,i,x,max:integer;beginmax:=0;t:=0;repeatbeginx:=0;read(x);if (x>0) and (x=max) then i:=i+1;if x>max then begin max:=x; i:=1; end;t:=t+1;end;until (x<=0) or (t>=1000) or (x mod 1>0);if (x<0) or (x mod 1>0) then begin i:=-1; writeln('Нельзя вводить ненатуральные числа');end;if i=0 then writeln('Введён только ноль');if i>0 then writeln('Чисел, равных максимуму: ', i);end.