Напишите программу, которая для последовательности натуральных чисел находит среднее арифметическое. программа получает на вход числа, кол-во чисел неизвестно, последовательность заканчивается числом 0 (0 в последовательность не входит)

Var
  a: array[1..1000] of integer;
  sa: real;
  i: byte;
begin
  writeln ('Введите числа: ');
  i:=0;
  sa:=0;
  repeat
    i:=i+1;
    read (a[i]);
    sa:=sa+a[i];
  until a[i]=0;
  sa:=sa/(i-1);
  writeln ('Среднее арифметическое чисел = ',sa);
end.

Пример:
Введите числа: 
2 4 2 4 2 4 0 
Среднее арифметическое чисел = 3