Программа для ввода вектора, как генерацией, так и вручную - PascalABC.NET

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

Программка должна как генерировать векторы, так и позволять вводить их в ручную. Изначально это была программа для матрицы) Пишет ошибку в 6 строке снизу.

Var
r,priznak,i,a:integer;
vektor: array [1..100] of integer;
begin
write('число строк r= '); readln(r);
writeln('задайте значение 1, если будете использовать датчик');
writeln('или значение 0, если ввод с клавиатуры');
write('priznak = '); readln(priznak);
randomize; {инициализация генератора}
for i:=1 to r do
Begin
write('R[',i,']= ');
if priznak=0 then readln (r[i])
else begin r[i]:= random(20)-5;
writeln(r[i])
end;
end;
end.

Решение задачи: «Программа для ввода вектора, как генерацией, так и вручную»

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

var r,priznak,i,a:integer;
    vektor: array [1..100] of integer;
begin
repeat
write('Введите размер массива от 2 до 100 r= ');
readln(r);
until r in [2..100];
writeln('задайте значение 1, если будете использовать датчик');
writeln('или значение 0, если ввод с клавиатуры');
repeat
write('priznak = ');
readln(priznak);
until priznak in [0..1];
case priznak of
1:begin
   randomize; {инициализация генератора}
   for i:=1 to r do
   vektor[i]:=-5+random(20);
  end;
0:for i:=1 to r do
   begin
    write('vector[',i,']= ');
    readln(vektor[i]);
   end;
end;
for i:=1 to r do
write(vektor[i],' ')
end.

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

В начале кода объявляются переменные: r, priznak, i, a (размер массива, признак, цикл, аккумулятор).
Переменная r запрашивает размер массива от 2 до 100.
Переменная priznak запрашивает признак ввода: 1 - генерация случайных чисел, 0 - ввод с клавиатуры.
В зависимости от значения priznak выполняется соответствующий блок кода.
При priznak=1 происходит инициализация генератора случайных чисел и заполнение массива vektor случайными числами от -5 до 20.
При priznak=0 происходит запрос на ввод элементов массива с клавиатуры.
После ввода всех элементов массива выводится на экран.