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

[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....-неверный ответ

[Lapp]

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

Виноваты полтергейст с барабашкой . На моем компе их нет - и все работает правильно.
Вот, смотри (я, ессно, убрал clrscr - чур, меня, чур!)).

Running "h:\...\fp110317_nadja_yak\fp110317_nadja_yak.exe "
Размер массива n=4
Введите элементы массива:
a[1]=2
a[2]=2
a[3]=2
a[4]=2
Массив:
2 2 2 2
Элементы равные двум:
a[1]=2
a[2]=2
a[3]=2
a[4]=2

Running "h:\...\fp110317_nadja_yak\fp110317_nadja_yak.exe "
Размер массива n=5
Введите элементы массива:
a[1]=1
a[2]=3
a[3]=4
a[4]=5
a[5]=6
Массив:
1 3 4 5 6
Элементы равные двум:

Running "h:\...\fp110317_nadja_yak\fp110317_nadja_yak.exe "
Размер массива n=2
Введите элементы массива:
a[1]=2
a[2]=1
Массив:
2 1
Элементы равные двум:
a[1]=2

Running "h:\...\fp110317_nadja_yak\fp110317_nadja_yak.exe "
Размер массива n=4
Введите элементы массива:
a[1]=1
a[2]=1
a[3]=3
a[4]=2
Массив:
1 1 3 2
Элементы равные двум:
a[4]=2

Скажи, какие данные ты вводишь и как.