Давайте разбираться. Начнём непосредственно с ошибки:

writeln(N); - программа примет лишь 1 значение в переменную N.

Так как мы не знаем, когда именно мы закончим выполнять программу, то нам цикл for не подходит. Заместо него лучше использовать цикл While...do.

Идея решения: внутри цикла мы каждый раз будем получать от пользователя число. Если число окажется равно 0, то мы останавливаем цикл. С этим хорошо справляется команда break. Во всех остальных случаях, мы должны использовать переменную, которая будет считать количество введёных пользователем чисел (т.е., пользователь ввёл новое число, наш счётчик увеличился).  Также нам понадобится переменная, которая будет в себе содержать сумму чисел и, получается, каждый раз, когда пользователь введёт число, оно приплюсовывается к нашей сумме. Когда пользователь ввёл 0 и мы завершили цикл, нам остаётся рассчитать среднее арифметическое. Для этого сумма элементов делится на их количество. Попробуйте реализовать данную программу.

<немного текста, чтобы ответ приняли>