Ошибка в задании

[dimon_snake]

Есть две коробки. Можно ли переложить все предметы из 1 коробки во вторую(или наоборот), если с одной во вторую коробку можно переложить столько, сколько их уже есть во второй коробке.
Я делаю так: узнаю, какая больше, от большей отнимаю меньшую, а к меньшей прибавляю столько, сколько в ней на данный момент. И так повторяется, пока не верно условие, что они равны, или кто-то из них равен 0(тогда в текстовый файл выводится "ЕС") а если кол-во пройденных циклов достигает 10, то в текстовый файл выводится "ноу" и цикл заканчивается. Программа частично работает, 70 баллов из ста. Что не так?
Вот код:

var
fi,fo:text;
x,y:longint \\Лонгинт, ибо кол-во предметов может быть до 10^9
z:byte;
begin
Assign(fi,'box.in');
Assign(fo,box.out');
Reset(fi);
Rewrite(fo);
while not eof(fi) do begin
Read(fi,x,y);
Readln(fi);
z:=0;
while 1<2 do begin (бесконечный цикл, прерывается в самом цикле)
if x>y then begin
x:=x-y;
y:=y+y;
inc(z);
end
else begin
y:=y-x;
x:=x+x;
Inc(z);
end;
if (x=0)or(y=0)or(x=y)
then begin
Write(fo,'YES');
break;
end;
if z=10 then 
begin
Write(fo,'NO');
break;
end;
end;
Writeln(fo);
end;
Close(fo);
end.