Реализация дека в компьютере: уничтожение дека

program dek;
uses
  crt;
type
 link = ^kom;
 kom  = record
           ini :integer;
           next:link;
           pred:link;
        end;
var
   pn,pend:link;
   arg,j,m:integer;
   c:char;
 
procedure add(var n,nend:link;x:integer);
var
   neo:link;
   i:integer;
begin
   new(neo);
   neo^.ini:=x;
   if n=nil then
   begin
     n:= neo;
     nend:=n;
     neo^.next:=nil;
     neo^.pred:=nil
   end
   else
   begin
     nend^.next:=neo;
     neo^.pred:=nend;
     neo^.ini:=x;
     neo^.next:=nil;
     nend:=neo
   end;
 
end;  
procedure veiw(n : link);
begin
   if n=nil then
     writeln ('Dek Pust')
   else
        begin
      while n<>nil do
           begin
      DeleteL(n^.ini);
        n:=n^.next
      end;end;
      readkey;
      end;

uses crt;
 
var
tail,x,top,i:longint;
xxx:integer;
a:array[-10000..10000]  of longint;
s:string;
 
procedure push_front(x:longint);
begin
dec(tail);
a[tail]:=x;
end;
procedure push_back(x:longint);
begin
inc(top);
a[top]:=x;
end;
 
procedure popf;
begin
if tail>top  then writeln('error') else begin inc(tail);
  writeln(a[tail-1]);
  end;
end;
 
procedure popr;
begin
if tail>top  then writeln('error') else begin dec(top);
  writeln(a[top+1]);
  end;
end;
 
procedure front;
begin
if top<tail then writeln('error')
else writeln(a[tail]);
end;
 
procedure back;
begin
if top<tail then writeln('error')
else writeln(a[top]);
end;
 
 
function size:longint;
begin
if tail>top then size:=0 else size:=top-tail+1;
end;
procedure clear;
begin
top:=0;tail:=1;
end;
 
 
 
 
begin clrscr;
top:=0;readln(s);
tail:=1;
while s<>'exit' do
   begin
   if copy(s,1,5)='clear' then begin
                              clear;
                       writeln('ok');;
 
                       end else
   writeln('error');
 
 
 
   readln(s);
   end;
writeln('bye');
readln;
end.