Связанные динамические данные

[sorokan]

uses CRT;
type
  E = ^elem;
  elem = record ;
    L: integer;
    B: E;
  end;
var Beg, ende, P, PK, P1, P2: E;
  i, sum, max, min, del, g, s: integer;
  c: char;
  med: real;
begin
  new(P);
  writeln;
  Readln(P^.L);
  P^.B := nil;
  Beg := P;
  EndE := P;
  Writeln;
  Readln(c);
  while c = 'y' do begin
    new(P);
    Writeln;
    Readln(P^.L);
    P^.B := nil;
    ende^.B := P;
    ende := P;
    Writeln;
    Readln(c);
  end;
  P := beg;
  while P <> nil do begin
    Write(P^.L, ' ');
    P := P^.B;
  end;
  P := Beg;
  while p <> nil do
  begin
    g := i + 1;
    P1 := Beg;
    if P^.L = del then
    begin
      for i := 1 to g - 1 do
        P1 := P^.B;
      P1^.B := P^.B;
      Dispose(p);
    end;
    P := P^.B;
  end;
  writeln;
end.

В конце мне нужно удалить все элементы заданного значения, где я ошибся?



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.