Как организовать ввод конечного интервала массива с клавиатуры, а не константой?

const
  N = 20;
 
var
  A: array[1..N] of integer;
  
begin
  .......
end.

///Ввод динамического массива с клавиатуры
procedure Input(N: integer; var A : array of integer);
begin
  var i := 0;
  repeat
    SetLength(A, i + 1);  
    read(a[i]);
    inc(i)
  until i = N
end;
 
var
  A: array of integer;
  N: integer;
  
begin
  write('N = ');
  readln(N);
  writeln('Введите ', N, ' элементов массива:');
  Input(N, A); //Вводим массив A размера N
  writeln;
  write('Вы ввели массив: ');
  for var i := 0 to N - 1 do write(' ', a[i])
end.

///Ввод динамического массива с клавиатуры
procedure Input(N: integer; var A : array of integer);
begin
  var i := 0; //начальный размер массива
  repeat
    SetLength(A, i + 1); //устанавливаем размер массива A равным i + 1 
    read(a[i]); //вводим i-й элемент массива
    inc(i) //увеличиваем длину массива на 1
  until i = N //Когда длина станет равна N, то выходим из процедуры
end;
 
var
  A: array of integer;
  N: integer;
  
begin
  write('N = ');
  readln(N); //Вводим размер массива N > 0
  writeln('Введите ', N, ' элементов массива:');
  Input(N, A); //Вызываем процедуру по вводу массива A размера N
  writeln; //пропускаем одну строчку (можно без этого)
  write('Вы ввели массив: '); //выводим сообщение
  { Выводим созданный в процедуре Input массив. Причем не забываем, 
  что в динамических массивах индексация идет от 0: }
  for var i := 0 to N - 1 do write(' ', a[i])
end.

///Ввод динамического массива с клавиатуры
procedure Vvod(var A : array of integer; var L: integer);
begin
  L := 0; //Начальная длина массива
  repeat
    inc(L); //увеличиваем длину массива
    SetLength(A, L); //Длину массива устанавливаем равной L 
    read(a[L - 1]) //Вводим элемент массива с индексом L-1
  until ord(ReadChar) = 13; //После нажатия Enter мы выходим из цикла
end;
 
var
  A: array of integer;
  L: integer; //Длина массива
  
begin
  writeln('Введите элементы массива (через пробел) и нажмите Enter: ');
  vvod(A, L); //Вызываем процедуру для ввода массива
  writeln;
  write('Вы ввели массив: ');
  for var i := 0 to L - 1 do write(' ', a[i])
end.