Определить правильность написания строки кода - Pascal ABC

Можно ли так писать? while (b[3]<>b1[3]) and (b[2]<>b1[2]) and (b[1]<>b1[1]) do begin?

(b,b1:array[1.100] of integer

Листинг программы

i:=1;
while(i<n-1)and(b[i]<>b1[i]) and (b[i+1]<>b1[i+1]) and (b[i+2]<>b1[i+1]) do
i:=i+1;
if i>n-2 then write('нету')else write('есть')

Объяснение кода листинга программы

Переменная i инициализируется значением 1.
Запускается цикл while, который будет выполняться до тех пор, пока i меньше n-1 и все значения b[i], b[i+1] и b[i+2] не равны b1[i], b1[i+1] и b1[i+2] соответственно.
После каждой итерации цикла значение i увеличивается на 1.
Если i становится равным n-2, то выводится сообщение нет.
Если i становится равным n-1, то выводится сообщение есть.