Объявление размерности массива.

[iCaesy]

В общем как объявлять массив понятно:

Const
N=40; {Константа N  содержит количество элементов массива}
Var
A : Array [1..N] Of Integer;
I : Integer;
begin
...
end.

А если мне нужно указать размерность внутри программы, то есть от i:=1 не до константы, а до x который вводится с клавиатуры или читается из файла.

[Serge_Bliznykov]

на самом деле вопрос далеко не так прост, как может показаться.
Дело в том, что то, что Вы хотите - называется "динамические" массивы.
В "чистом" виде в обычном Паскаль их не было. (в Delphi/FreePascal они уже есть).

поэтому для решения подобных задач (когда число элементов вводится с клавиатуры) раньше применялись два основных подхода.
1) простой как топор. Задаём N заведомо больше, чем могут внести количество элементов в массиве. Ну, например, 1000. или 5000... дальше, заводим дополнительную переменную и в ней храним число, сколько элементов в массиве реально нужно.
например, в коде этом можно записать так:

const MaxN = 1000;
Var
A : Array [1..MaxN] Of Integer;
N : integer; {реальное кол-во элеметов в массиве - вводится пользователем}
I : Integer;
begin
  repeat
    WriteLn('Введите число элементов в массиве (от 1 до ',MaxN,'): ');
    Readln(N);
    if (N<1) or (N>MaxN)  then
        WriteLn('Вы ввели недопустимое число! Попробуйте ещё раз!');
  until (N>=1) and (N<=MaxN);
  
  for i:=1 to N do .....

второй подход основывается на использовании динамической памяти и указателей. Он гораздо сложнее (а иногда и использут хакерские методы доступа). На форуме были примеры подобных решений.

Но, без крайней необходимости не рекомендую использовать эти методы. Если задача позволяет - используйсте первый подход (статистические массивы).

[dosha]

procedure SetLength(

  var A: DynArrayType;

  Len: Integer

);

можно и динамический масив

Var
A : Array Of Integer;
N : integer; {реальное кол-во элеметов в массиве - вводится пользователем}
begin
repeat   
 WriteLn('Введите число элементов в массиве (>1): ');
    Readln(N);
    if (N<1)  then
        WriteLn('Вы ввели недопустимое число! Попробуйте ещё раз!');
  until (N>=1);
 SetLength(A,N); 
 // идальш работаем с масивом....

просто незабываем проверять длину масива, чтоб не было ошибок при обработке данных