Паскаль очереди помогите пожалуйста

Задача :Дана не пустая очередь с вершинами начала и конца. Извлекать из очереди и выводить на экран элементы с нечетными значениями. если таковых нет то просто вывести очередь.
вот моя программа:
program lab02;
uses crt;
type tptr=^telem;
telem=record
inf:integer;
link:tptr;
end;
var BegQ1, EndQ1:tptr;
value:integer; i:integer;
procedure AddE1(var BegQ:tptr; var EndQ:tptr; var val:integer); var p:tptr;
begin
new(p);
P^.inf:=val;
P^.link:=nil;
if EndQ=nil then BegQ:=p
else EndQ^.link:=p;
EndQ:=p;
end;
procedure GetDelE1(var BegQ:tptr; var EndQ:tptr; var val:integer); var p:tptr;
begin
val:=BegQ^.inf;
p:=BegQ;
BegQ:=p^.link;
if BegQ=nil then EndQ:=nil;
dispose(p);
end;
begin
clrscr;
BegQ1:=nil;
EndQ1:=nil;
for i:=1 to 10 do AddE1(begq1,endq1,i);
while BegQ1<>nil do
begin
if (value mod 2)=1 then
begin
getdele1(begq1,endq1,value) ;
AddE1(begq1,endq1,i); write('Value=',value) ;
end ;
end;
readln;
end.
ОШИБКА: ошибка где-то в условии вывода.. помогите пожалуйста..: (