Представлена программа:

Var
a : array [1..100] of integer;
i : integer;
Begin
read (a);
for i:=1 to 100 do
writeln (a[i]);
End.

Содержит ли программа ошибку? Если да, то опишите эту ошибку и что в программе нужно изменить.