массивы, проблема с проверкой значения элемента

[drago3-28]

Нужно ввести массив из 8 элементов такой, чтобы каждый элемент был равен или 0 или 1, иначе выводится сообщение "Введно неверно, введите заново", и снова вводится этот элемент массива. Если снова неверно, то вводить опять, и так далее. Третий час уже сижу, и ничего не получается

[rubius2008]

i:=1;
repeat 
  write('a[',i,']='); readln(a[i]);
  if (a[i]=0) or (a[i]=1) then i:=i+1
  else writeln('Введно неверно, введите заново');
until i>n;