Pascal: считать массив

1 вариант: Спросить пользователя заранее „сколько будет элементов в массиве?“
2 вариант: Предупредить пользователя, что если он введёт число „0“ или „отрицательное число“ или ещё какое-нибудь, то ввод значений прервётся.

К примеру:

…
Write('Размер массива: '); ReadLn(N);
for i := 1 to N do begin Write('M[', i, '] = '); ReadLn(M[ i]); end;
…

…
Write('Вводите значения массива. Окончание ввода - 0.');
N := 0;
repeat
Inc(N); Write('M[', N, '] = '); ReadLn(M[N]);
until M[N] = 0; Dec(N);
…