Написать программу, которая вводит с экрана N чисел, считает их среднее арифметическое и выводит его на экран

Program z1; beginvar a, d, n, i:integer; var s:real; write ('Сколько всего чисел будет') ; read (n) ; writeln ('Вводите числа') ; for i:=1 to n dobeginread (d) ; a:=a+d; end; s:=a/n; write ('Среднее арифметическое=', s) ; end.

Пытался сделать ввод чисел как-то через массив или автозаполнением, но тогда надо кол-во чисел, а тут n.