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

[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.

[volvo]

Вот верный алгоритм:

Код

uses item, list;
var
 L: tlist;
 p: ptitem;
 x, e1: integer;

begin
 L.init;
 repeat
   readln(x);
   if x <> -1 then
     L.append(x)
 until( x = -1 );
 L.print;

 write('e = '); readln(x);
 write('e1 = '); readln(e1);

 p := L.first;
 while assigned(p) do
   begin
     if p^.info = x then
       L.insert_after(p, e1);
     p := p^.next
   end;
 L.print;

 L.done
end.

P.S. Скачать модули необходимые для работы с программой (и заодно почитать про динамические структуры данных) можно здесь: FAQ: Динамические структуры данных (необходимо скачать модуль List.rar и распаковать в папку с этой программой)