Задача с массивом, вывод всех двоек и их индексов в массиве Опции

[nadja yak]

uses crt;
var a:array[1..100] of integer;
      n,i:byte;
begin
clrscr;
write('Размер массива n=');
readln(n);
writeln('Введите элементы массива:');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
clrscr;
writeln('Массив:'); ;
for i:=1 to n do
write(a[i],' ');
writeln;
writeln('Элементы равные двум:');
for i:=1 to n do
if a[i]=2  then
 writeln('a[',i,']=',a[i]);
readln
end.

в чем ошибка?
почему выводит только когда двойка второй или третий элемент массива
если 1.3.4.5.6....-неверный ответ