В слово, заканчивающимся точкой, вставить новый элемент е1 за каждым вхождением элемента е2(исправить)/delphi(cписки)

[freestudent]

Помогите исправить программу таких образом, чтобы вставлялся элемент только в том "слове", после которого стоит точка, а не во всем списке. Не могу сообразить.

type ukaz=^Zveno;
     zveno=record
          :ukaz;
          Info:char;
     end;
    spisok=ukaz;
  var
   p,q,q1:spisok;
   sym,e1,e2:char;
   ee:string;
begin
write('E1=');
readln(e1);
 writeln;
write('E2=');
readln(e2);
 
 
{Порождение списка}
{ ввод исходного слова, представление его в виде цепочки }
 
  { формирование заглавного звена }
 
new(q);
p:=q;
p^.Next:=nil;
write('Spisok=');
read(sym);{чтение первого символа}
while sym<>'.' do
 begin
 
   new(p^.Next);
   p:=p^.Next;
   P^.Info:=sym;
   p^.Next:=nil;
   read(sym)
 end;
{Вывод списка}
p:=q;
 
while p^.Next<>nil do
 begin
  p:=p^.Next; write(p^.Info);
 end;
 
writeln;
p:=q;
while p^.Next<>nil do
 begin
 if p^.Info=e2 then
    Begin
      New(q1);
      q1^.Info:=e1;
      q1^.Next:=p^.Next;
      P^.Next:=q1;
    End;
 
  p:=p^.Next;
 
 end;
 
 
if p^.Info=e2 then   {Если последний символ е2}
    Begin
      New(q1);
      q1^.Info:=e1;
      q1^.Next:=p^.Next;
      P^.Next:=q1;
    End;
 
{Вывод списка}
p:=q;
 
while p^.Next<>nil do
 begin
  p:=p^.Next; write(p^.Info);
 end;
 
//while keypressed do   readkey;
readln;
 readln
end.