Вводить числа, пока не будет введён 0. Посчитать сумму и среднее арифметическое этих чисел — Pascal(Паскаль)

program Prog2;
var
count, sum, a:integer;
begin
sum:=0;
count:=0;
repeat
readln(a);
sum:=sum+a;
if a<>0
then count:=count+1;
until a=0;
writeln('Сумма: ',sum);
writeln('Среднее арифметическое: ',sum/count);
end.

var
  a:array[1..100] of real;
  i:integer;
  s:real;
begin
s:=0;
i:=1;
while true do
begin
  write('Введи '+inttostr(i)+'-ое число: ');
  readln(a[i]);
  if a[i]=0 then break;
  s:=s+a[i];
  inc(i);
end;
writeln(s,s/(i-1));
readln;