Списки, Не могу понять, что неверно... Опции

[Katti]

вот условие: Написать программу, которая вставляет в список L овый элемент Е1 за каждым вхождение элемента Е

Код

Program dinam;
Uses crt;
Type
pel=^element;
element = record
num: integer;
next: pel;
end;
Var
first, g,f,r: pel;
a,e,e1:integer;
ok: boolean;
Begin
Writeln ('Введите элементы списка, окончание ввода Ctrl+Z');
Readln (a);
new (first);
first^.num:=a;
first^.next:= nil;
 While not eof do
  begin
  Readln (a);
  new (g);
  g^.num:=a;
  g^.next:= first;
  first:=g;
  end;
  Writeln ('Получившийся список');
  f:=first;
  While f<> nil do begin
  Writeln (f^.num, ' ');
 f:=f^.next;
 end;
 Writeln ('Введите элемент для поиска');
 Readln (e);
 Writeln ('Введите  дополнительный элемент');
 Readln (e1);
 Writeln;
 g:=first;
 ok:=true;
  While ((g<> nil) and ok) do  begin
   if g^.num=e then ok:=false
   else g:=g^.next;
   end;
   While g<> nil do
   if (not ok) then begin
   New(r);
   r^.num:=e1;
   r^.next:=g^.next;
   g^.next:=r;
   end;
   Writeln ('Результат: ');
   f:=first;
   While f<> nil do begin
   Write (f^.num, ' ');
   f:=f^.next;
   end;
   End.

[Altair]

значит алгоритм неверный.
Скажите, зачем велосипед изобретать, если можно обойтись материалами FAQ"a ?
Программа действительно виснет после ввода e и e1 ...видимо бесконечный цикл...