Удаление границ стека

program z7;
type
    list=^tlist;
    tlist = record
        data: string;
        next:list;
    end;
var
    WorkList,fg,lg,temp,tmp1:list;
    workEl,tmp:string;
    firstgr, lastgar, i :integer;
    inp1,out1:text;
    
 
{======================= Head Types and values ==================}
 
procedure addelem(var sp:list; newelem: string);
var tmp: list;
begin
    new(tmp);
    tmp^.next:=sp;
    tmp^.data:=newelem;
    sp:=tmp;
end;
 
procedure printList(sp:list);
begin
    while sp<>nil do
    begin
        if sp=nil then
        begin
            writeln('empty');
            exit;
        end;
        {writeln(sp^.data); }  writeln(sp^.data);
        sp:=sp^.next;
    end;
end;
 
 procedure delelem (var sp:list);
 begin
 sp^.next:=sp^.next^.next;
 end;
 
begin
    assign(input, 'stack.inp');
    reset(input);
    assign(output,'strez5.out');
    rewrite(output);
    readln(firstgr);
    readln(lastgar);
    if firstgr>lastgar then
    begin
    writeln('No, I cant do this');
    exit;
    end;
    new(worklist);
    worklist^.next:=nil;                        
    worklist:=worklist^.next;
    i:=1;
    while not eof do
    begin
    readln(workel);
    addelem(worklist,workel);
    if i=firstgr-1 then
    fg:=worklist;
    if i=lastgar+1 then
    lg:=worklist;
    if i>lastgar then
        begin
        temp:=worklist;
        end;
    inc(i);
    end;
    if lastgar=i-1 then
    begin
    worklist:=worklist^.next;
    dispose(worklist)
    end;
    printList(worklist);
    if ((firstgr=1) and (lastgar=i-1)) then
    worklist:=nil
    else
    begin
    writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
    lg^.next:=fg;
    printList(worklist);
    end;
    close(input);
    close(output);
end.