Простоая задача, но немогу найти касяк в ней! Опции

[Geroi]

Вот она.......:

Код

Program home_07;
var text:char;
   b:boolean;
Begin
b:=False;
Writeln('‚Ввести буквы ');
Repeat
 Writeln('->'); Readln(text);
 if  b=(text=('P')) or ((text=('a')) or ((text=('s')) or ((text=('c')) or
            (text=('a')) or (text=('l'))))) then
            b:=true;

 until text <>('.');
  if b then Write('­нету')   else Write('есть');
end.

где тут ошибка. она не работает правильно.

[Geroi]

Извини за назойливость, но ты задачу в паскале наберал?
Пару не точностей. У нас же там одно мерный массив. И получается что j  вообще не нужна.!
Зададача min.