в чём ошибка?

[vasiliy42]

Процедуру удаления из очереди заменить на функцию.
исходник:

Program queue;
Type Tptr=^TElem; 
             TElem=record 
             inf : char; 
             link : Tptr 
     end;
Var begq,endq : Tptr; 
    value : char;
    i : byte;
 
Procedure AddEl(val : char); 
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 GetDelEl(var val : char); 
var p : TPtr; 
begin
    val:=begq^.inf;
    p:=begq; begq:=p^.link;
    if begq=nil then endq:=nil;
    dispose(p)
end;
 
begin
    new(begq);
    new(endq);
    begq:=nil; 
    endq:=nil;
    for i:=1 to 10 do
    begin
        writeln('3');
        readln(value);
        addel(value);
    end;
    i:=1;
    while begq<>nil do
    begin
        getdelel(value);
        writeln(i,'-й символ - ',value);
        inc(i)
    end
end.

то что получилось:

Program queue;
Type Tptr=^TElem; 
             TElem=record 
             inf : char; 
             link : Tptr 
     end;
Var begq,endq : Tptr; 
    value : char;
    i : byte;
 
Procedure AddEl(val : char); 
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;
 
Function GetDelEl(var val : char):char; 
var p : TPtr; 
begin
    val:=begq^.inf;
    p:=begq; begq:=p^.link;
    if begq=nil then endq:=nil;
    dispose(p)
end;
 
begin
    new(begq);
    new(endq);
    begq:=nil; 
    endq:=nil;
    for i:=1 to 10 do
    begin
        writeln('3');
        readln(value);
        addel(value);
    end;
    i:=1;
    while begq<>nil do
    begin
        getdelel(value);
        writeln(i,'-й символ - ',value);
        inc(i)
    end
end.

[Stilet]

Function GetDelEl(val : char):char; 
var p : TPtr; 
begin
    val:=begq^.inf;
    p:=begq; begq:=p^.link;
    if begq=nil then endq:=nil;
    dispose(p)
end;

begin
        value:=getdelel(value);
        writeln(i,'-й символ - ',value);
        inc(i)
    end

Идея ясна?

[vasiliy42]

не совсем

[Stilet]

Плехо. Плехо не то что идея не ясна - это и обьяснить можно, а то что ты кросспостиш