Repeat и Until

[Cryptic22]

Как в until добавить несколько слов к примеру mas[7] mas[6] mas[5]

program mass;
var mas: array[0..7]of string;
h,b,b1,b2,b3:string;

begin

mas[7] :='Фарит?';
mas[6] :='Кто?';
mas[5] :='Что?';
mas[4] :='Кто это?';
//mas[3] :='';
//mas[2] :='';
//mas[1] :='';
//mas[0] :='';

b:=mas[7];
b1:=mas[6];
b2:=mas[5];
b3:=mas[4];
//b4:=mas[3];
//b5:=mas[2];
//b6:=mas[1];
//b7:=mas[0];

Writeln('Тебя искал Фарит');
Readln(h);
 if (h = b) or (h = b1) or (h=b2) or (h=b3)then
Writeln('Хороший Дядька')
else
Writeln('Не будешь спрашивать кто это?');

//if(h<>b) or (h<>b1) or (h<>b2) or (h<>b3) or (h<>b4)then
Repeat
Readln(h);
if (h = b) or (h = b1) or (h=b2) or (h=b3)then
Writeln('Хороший дяденька')
else 
Writeln('Не будешь спрашивать кто это?');
until h = ''

end.

[Sciv]

Логические операторы - не слышали?

Это которые and, or, not и иже с ними