Написать процедуру, которая вставляет новый элемент E после первого элемента непустого списка L

Program spisok; 
type
zap=record 
fio:string[15];
adr:string[30]; 
end;
ukaz=^element; {Описание указателя на элемент очереди} 
element=record
inf:zap; 
next:ukaz; 
end;
var
newE, left, right, temp:ukaz; 
z:zap;
number:integer;
procedure org; {Процедура организации очереди} 
begin
writeln('Выполняется процедура организации очереди'); 
writeln('Для выхода из процедуры вводите символ:* ');
writeln('Введите фамилию и инициалы грузополучателя'); 
readln(z.fio);
writeln('Введите адрес грузополучателя');
readln(z.adr);
if z.fio='*' then exit; {Выход из процедуры при вводе “*”} 
new(newE);{Порождение нового элемента} 
newE^.inf.fio:=z.fio; {Заполнение его полей} 
newE^.inf.adr:=z.adr;
newE^.next:=nil;
left:=newE;{Left – указатель головы очереди} 
right:=newE;{Right – указатель хвоста очереди} 
While true do{Повторение этих же действий} 
begin
writeln('Введите фамилию и инициалы грузополучателя'); 
readln(z.fio);
writeln('Введите адрес грузополучателя'); 
readln(z.adr);
if z.fio='*' then exit; 
new(newE); 
newE^.inf.fio:=z.fio; 
newE^.inf.adr:=z.adr;
newE^.next:=left;{Организация связи со следующим элементом}
left:=newE;{Перемещение указателя головы}
end; 
end;
procedure dob;{Процедура добавления элемента в конец очереди}
begin
writeln(' Введите фамилию и инициалы грузополучателя '); 
readln(z.fio);
writeln(' Введите адрес грузополучателя '); 
readln(z.adr);
if z.fio='*' then exit; 
new(newE); 
newE^.inf.fio:=z.fio; 
newE^.inf.adr:=z.adr; 
newE^.next:=nil; 
right^.next:=newE; 
right:=newE;
end;
procedure udal;{Процедура исключения элемента} 
begin
writeln('Исключается головной элемент очереди'); 
writeln('Нажмите клавишу Enter');
readln;
temp:=left^.next; {Запоминаем указатель на элемент, следующий после головного} 
dispose(left); {Освобождаем память от головного элемента}
left:=temp;{Восстанавливаем правильное значение указателя головного элемента очереди} 
end;
procedure prosmotr; {Процедура просмотра очереди}
{Просмотр выполняется от головы к хвосту}
var i:integer; 
begin
writeln('Очередь содержит следующие элементы'); 
temp:=left;
i:=1;
while temp<>nil do 
begin
writeln(i, ' ', temp^.inf.fio, ' ', temp^.inf.adr); 
temp:=temp^.next;
i:=i+1;
end;
writeln('Нажмите клавишу Enter'); 
readln;
end;
{= = = = = = = = = = Основная программа = = = = = = = =} 
begin
while true do {Бесконечный цикл, обеспечивающий вывод на экран пунктов меню} 
begin
writeln('1  Организация очереди');
writeln('2  Добавление элемента в очередь'); 
writeln('3  Удаление элемента из очереди'); 
writeln('4  Просмотр очереди');
writeln('5  Выход'); writeln('    ');
writeln('Введите номер пункта меню'); 
readln(number);
case number of
1:org;
2:dob; 3:udal; 4:prosmotr;
5:exit; {Встроенная функция выхода} End;
End;
End.