отыскать количество и среднее арифметическое введенных положительных чисел если введенное число

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