Очередь. Вставить пару новых элементов перед последним

type data=record 
          n_poezda:string[5];
          stanz_otpr:string[15];
          stanz_nasn:string[15];
          vr_otpr:string[10];
          vr_pribyt:string[10];
          stoimost:string[10];
          end;
 
ukaz=^query; 
      query=record
            inf:data;
            next:ukaz;
            end;
 
var
 NewE, Left, Right, Temp: ukaz; {указатели: Left - начало, Right - конец}
 Z:data;
 f: file of data;

procedure zadan;
 var prev, pos, newE1, newE2: ukaz; {prev - предпоследний элемент,pos - последний элемент}
  begin
reset(f);
seek(f,filesize(f));
 writeln('Номер поезда: ');readln(z.n_poezda);
 writeln('Станция отправления');readln(z.stanz_otpr);
 writeln('Станция прибытия');readln(z.stanz_nasn);
 writeln('Врям отправления:');readln(z.vr_otpr);
 writeln('Время прибытия');readln(z.vr_pribyt);
 writeln('Стоимость');readln(z.stoimost);
 write(f,z);
 new(NewE2); 
  NewE2^.inf.n_poezda:=z.n_poezda;
  NewE2^.inf.stanz_otpr:=z.stanz_otpr;
  NewE2^.inf.stanz_nasn:=z.stanz_nasn;
  NewE2^.inf.vr_otpr:=z.vr_otpr;
  NewE2^.inf.vr_pribyt:=z.vr_pribyt;
  NewE2^.inf.stoimost:=z.stoimost;
  NewE2^.next:=Right;
 writeln('Номер поезда:');readln(z.n_poezda);
 writeln('Станция отправления:');readln(z.stanz_otpr);
 writeln('Станция прибытия:');readln(z.stanz_nasn);
 writeln('Время отправления');readln(z.vr_otpr);
 writeln('Время прибытия');readln(z.vr_pribyt);
 writeln('Стоимость');readln(z.stoimost);
 write(f,z);
 new(NewE1);
  NewE1^.inf.n_poezda:=z.n_poezda;
  NewE1^.inf.stanz_otpr:=z.stanz_otpr;
  NewE1^.inf.stanz_nasn:=z.stanz_nasn;
  NewE1^.inf.vr_otpr:=z.vr_otpr;
  NewE1^.inf.vr_pribyt:=z.vr_pribyt;
  NewE1^.inf.stoimost:=z.stoimost;
  NewE^.next:=newE2;
  
  pos^.next:=nil;
  right^.next:=pos;
  right:=pos;  
  prev:=left;
  while prev^.next^.next<>nil do
  prev:=prev^.next;
  prev^.next:=newE1;
   readln;
  end;