[ХодячийБаг]

Помогите найти ошибку. Написал на паскале небольшой код.

Смысл в том чтобы сортировать двунаправленное кольцо, никак не получается. Вот мой код:

Код:

type
dat = integer;
colob=^obd;
obd = record
         ri,le: colob; // ri - укзатель на правый объект, le - на левый соответственно
         d: dat; // данное
         end;

...
var
b,e,q,ql: colob;
x: dat;
...
b:=nil;
e:=nil;
checkeof := true;
while not eof do
begin
 read(x);
 q:=b;
 while (q<>b) or (x<q^.d) do
 begin
   if x<=q^.d then
   begin
    ql:=q;
    q:=q^.ri;
   end;
 inkol(b,e,ql,x); // inkol - процедура добавления значения x слева от адреса ql. b,e - характеристика кольца (начало, конец), x данное, которое вводим.
 end;
end;

вероятно while циклится.. Ошибка "Runtime Error" вылезает после исполнения.

Помогите пожалуйста, заранее спасибо. (Язык Pascal)

p.s. сортировку производить при вводе входного потока