простая задачка, а не могу разобраться

[Dimanduc]

требуется определить, является ли введенное число двоичным? Вот прога:
var a:string;
b:integer;
begin
b:=1;
while (a[b]<=length(a)) and (a[b]='0') and (a[b]='1') do
begin
b:=b+1;
end;
write ('Это число ');
if b<length(a) then write (' не ');
writeln (' является двоичным числом');
readln
end.
Компиляция ошибок не находит, но почему-то выводится сообщение выводится постоянно с "не". Почему так происходит?

[Sazary]

Во-первых, где вы вводите само число?
Добавить

readln(a);

В цикле сразу несколько ошибок:

while (a[B]<=length(a)) and (a[b]='0') and (a[b]='1') do

надо:

while (b<=length(a)) and ((a[b]='0') or (a[b]='1')) do

и здесь:

if b<length(a) then write (' не ');

должно быть:

if b-1<length(a) then write (' не ');

[Serge_Bliznykov]

бред.
1) это даже не откомплируется из-за

a[b]<=length(a)

нельзя сравнить элемент строки с числом.
предполагалось: while (b<=length(a)) ...
2) но а дальше что?!
[B]

and (a[b]='0') and (a='1')

читаем B-й элемент строки равен нулю и этот же элемент строки равен единице! Трудно представить, чтобы один и тот же элемент строки был и нулём и единицей одновременно!
поэтому - у Вас и выдаётся, что число не двоичное!

[Serge_Bliznykov]

Sazary, коллега, извините. не обновил страничку и не увидел Вашего ответа! сорри!!

Dimanduc
попробуйте такой код:

var a:string;
  b:integer;
begin
  a:='11';
  if Length(a)=0 then WriteLn('Строка пуста!')
  else
  begin
    b:=0;
    while (b<length(a)) and ((a[b+1]='0') or (a[b+1]='1')) do
      b:=b+1;

    write ('Это число');
    if b<>length(a) then write (' не');
    writeln (' является двоичным числом');
  end;
  readln
end.

[Dimanduc]

Спасибо за объяснение. Теперь понял, в чем ошибка: вместо and надо or, так как сравнивается один и тот же символ строки с 0 и с 1. Поменял только and на or и все работает! Еще раз отдельное спасибо!))