Динамические структуры данных: вставить в список L новый элемент F перед первым вхождением элемента Е

uses crt;
 
type alist=^l;
 l = record
  data: char;
  next: alist;
 end;
 
 var first: alist;
     i,n: integer;
     f,e: char;
 
 procedure add(var first: alist; x: char);
 var cur: alist;
 begin
  if first=nil then
  begin
   new(first);
   cur:=first;
  end
  else
  begin
   cur:=first;
    while cur^.next<>nil do
     cur:=cur^.next;
    new(cur^.next);
    cur:=cur^.next;
  end;
  cur^.next:=nil;
  cur^.data:=x;
 end;
 
 procedure list(first: alist);
 begin
  while first<>nil do
   begin
    write(first^.data,' ');
    first:=first^.next;
   end;
  writeln;
 end;
 
 procedure entry(var first: alist; e,f1: char);
 var cur,f,n: alist;
     i: integer;
 begin
  cur:=first;
  f:=cur;
  i:=0;
  while cur<>nil do
   begin
    if e=cur^.data then
     begin
      if i=0 then
       begin
        new(cur);
        cur^.data:=f1;
        cur^.next:=first;
        first:=cur;
        exit;
       end;
      new(cur);
      cur^.data:=f1;
      cur^.next:=n;
      f^.next:=cur;
      exit;
     end;
    f:=cur;
    inc(i);
    cur:=cur^.next;
    n:=cur;
   end;
   writeln('Елемента E не существует в списке L ');
 end;
 
 begin
  clrscr;
  first:=nil;
  write('Количество элементов: ');
  readln(n);
  for i:=1 to n do
   begin
    readln(f);
    add(first,f)
   end;
  writeln('Введите F,E');
  readln(f,e);
  writeln('Исходные элементы: ');
  list(first);
  entry(first,e,f);
  writeln('Полученные элементы: ');
  list(first);
  readln;
 end.