Создать одномерный массив g из 34 целых чисел( числа вводит пользователь)вывести на экран массив в виде строки чисел) заранее )

Var A: array [1..34] of integer;
    i :integer;
beginfor i:=1 to 34 do begin
writeln('введите число');
readln(A[i]);
end;
for i:=1 to 34 do write(a[i],' ');
end.

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