Найти количество и среднее арифметическое введенных положительных чисел если введенное число 0, ввод чисел прекрашается

//Pascal
var
  count, sum, a: integer;
begin
writeln('Ввод чисел. Число 0 заканчивает ввод.');
a := 1;
sum := 0; count := 0;
while a <> 0 do
begin
  readln(a);
  if a > 0 then
  begin
    count := count + 1;
    sum := sum + a;
  end;
end;  
writeln('Положительных чисел = ', count);
writeln('Среднее арифметическое = ', sum/count);
end.