Линейные списки и циклические списки

procedure IncludeInQueue( var FirstElem, LastElem: Queue; NewElem: TypeOfElem); 
 
var 
 
  ServiceVar: Queue; 
 
begin
 
new( ServiceVar ); 
 
  ServiceVar^.Elem:= NewElem;
ServiceVar^.NextElem:= nil; 
 
  if ( FirstElem= nil ) and ( LastElem= nil ) then begin
FirstElem:= ServiceVar; 
 
    LastElem:= ServiceVar 
 
  end 
 
    else begin
FirstElem^.NextElem:=ServiceVar;
FirstElem:=ServiceVar
end
end;

procedure AddToList(X: Integer; var PointerEndList: List);
begin
   if PointerEndList = nil then
      begin
           New(PointerEndList);
           PointerEndList ^.Info := X;   
           PointerEndList ^.Next := nil;    
       end
  else         
    begin
        New(PointerEndList ^.Next);    
        PointerEndList := PointerEndList ^.Next;
        PointerEndList ^.Info := X;
        PointerEndList ^.Next := nil;
    end;
end;

procedure AddToList(X: Integer);
var 
     NewElement: List;
begin
   New(NewElement);
NewElement^.Next:=nill;
NewElement^.info: =x;  
if PointerEndList = nil then         //предположительно у тебя ссылка на начало гдето до этого была описана
      begin
           PointerEndList := NewElement;   
       end
  else         
    begin
        PointerEndList^.Next := NewElement;
        PointerEndList:=NewElement;
    end;
end;

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
type
   StrPerem=string;
   List=^First;
   First=record
   data:StrPerem;
   next,pred:List;
   end;
   Second=record
   fir,las:List;//от first и last
   end;
 
procedure Add(var  L:Second);
var s:StrPerem;
    NowElem:List;
begin
   repeat
    Writeln('vvedi element spiska s:');
    Readln(s);
     if length(s)<>0 then
          begin
             NowElem:=new(List);
             NowElem^.next:=nil;
             NowElem^.pred:=nil;
             NowElem^.data:=s;
              if L.fir=nil then
                L.fir:=NowElem
              else
                 begin  //установка двойной связи между элементами
                    L.las^.next:=NowElem;//задание указателя предыдущего элемента на текущий
                    NowElem^.pred:=L.las;//задание указателя текущего элемента на предыдущий
                 end;
 
             L.las:=NowElem;//вставляем следующий элемент
          end;
   until length(s)=0;
end;
 
procedure Delete(var L:Second);
var NowElem,ElemWasDel:List;
    DelEl,Num:integer;
begin
   WriteLn('skoka udalit'' elementov DelEl:');
   ReadLn(DelEl);
   NowElem:=L.fir;
   Num:=1;
    while Num<>DelEl+1 do
      begin
         L.fir:=NowElem^.next;
         ElemWasDel:=NowElem;
         NowElem:=NowElem^.next;
         dispose(ElemWasDel);
         Num:=Num+1;
      end;
 
end;
 
procedure print(var L:Second);
var NowElem:List;
begin
   NowElem:=L.fir;
    while NowElem<>nil do
      begin
         Writeln(NowElem^.data);
         NowElem:=NowElem^.next;
      end;
end;
 
 
var i:integer;
    L:Second;
begin
   repeat
   Writeln('vvedi comandu i:');
   Readln(i);
     case i of
      1: Add(L);
      2: Delete(L);
      3: Print(L);
      4: i:=4;
     end;
   until i=4;
 
end.

procedure NumberEl(var L:Second);
var NowElem:List;
    Chis:integer;
begin
   NowElem:=L.fir;
   Chis:=0;
    while NowElem<>nil do
      begin
         Chis:=Chis+1;
         NowElem:=NowElem^.next;
      end;
         Writeln('Chislo Elementov=',chis);
end;
 
var i:integer;
    L:Second;
begin
   repeat
   Writeln('vvedi comandu i:');
   Readln(i);
     case i of
      1: Add(L);
      2: Delete(L);
      3: Print(L);
      4: NumberEl(L);
      5: i:=5;
     end;
   until i=5;

Type
list = record
a,b:integer;
n,i:boolean;
end;

var arr:array[0..5] of list;