Можно ли организовать ввод разрядности массива с клавиатуры? - Turbo Pascal

Формулировка задачи:

Можно ли организовать ввод разрядности массива с клавиатуры? Что-то вроде этого:

program massiv_n;
var
 a : array[1..n] of Integer;
 i,n,s : Integer;
begin
 s:=0;
 writeln('Введите число элементов: ');
 readln(n);
 writeln('Введите ', n, ' элементов: ');
 for i:=1 to n do
 begin
  readln(a[i]);
  inc(s,a[i]);
 end;
 writeln('s= ', s);
 readln;
end.

Эта программка не работает: пишет на n "неизвестный идентификатор", если описать n перед массивом, то пишет "Невозможно высчитать значение"...

Решение задачи: «Можно ли организовать ввод разрядности массива с клавиатуры?»

Листинг программы

var
  a : array[1..1000] of Integer;
  n, i : integer;
  .....
begin
  repeat
    write('введите размерность массива: ');
    readln(n);
    if not (n in [1..1000]) then writeln('ошибка ввода!');
  until n in [1..1000];
  for i := 1 to n do
  .......
end.

Объяснение кода листинга программы

В данном коде происходит следующее:

Создается переменная a, которая представляет собой массив целых чисел размером от 1 до 1000.
Затем идет цикл repeat, который продолжается до тех пор, пока не будет введен корректный размер массива.
Внутри цикла с помощью функции readln() считывается ввод пользователя.
Проверяется, что введенный размер массива находится в диапазоне от 1 до 1000. Если это условие не выполняется, выводится сообщение об ошибке.
После завершения цикла repeat начинается цикл for, который выполняется n раз (где n - размер массива, введенный пользователем).
Внутри цикла for происходит неопределенная часть кода, которую необходимо дополнить.