...
m:=1;
flag:=false;
while (m<=length(A)) and ((A[m]='1') or (a[m]='0')) do
inc(m);
if m-1=length(A) then
flag:=true;
...
Программа будет выполнять гораздо меньше операций, а потому и быстрее работать.