Известно количество посетителей в картинной галерее. Составить программу вычисления среднего количества посетителей за произвольный период (количество дней заранее не известно), если известно количество их за каждый день — Pascal(Паскаль)

uses crt;
var sred:real;
    a,n,s:byte;
begin
clrscr;
textcolor(15);
a:=1;
sred:=0;n:=0;
writeln('Введите количество посетителей за каждый день ');
writeln('Окончание ввода - 0');
while a<>0 do
 begin
  n:=n+1;
  write(n:2,' - ');
  readln(a);
  sred:=sred+a;
 end;
writeln('Всего посетителей ',sred:0:0,' чел. за ',n-1,' дн.');
sred:=sred/(n-1);
write('Среднее=',sred:0:0);
readln
end.