Турбо Паскаль 7.0 Удаление из списка элемента

[sir.andrey]

Подскажите пожалуйста, почему в этом цикле не удаляется последний элемент списка?

h:=first;
while h^.next<>nil do begin
                      first:=h^.next;
                      first^.pred:=nil;
                      dispose(h);
                      h:=first;
                      end;

first-первый элемент списка!

[p51x]

А почему он должен удалится? На последнем у вас условие цикла не выполнится.

[sir.andrey]

Ах да я просто в цитате забыл приписать

dispose(first)

и все равно не удаляется!
Остается последний элемент!

[Serge_Bliznykov]

а с чего Вы решили, что он не удалился?!
операция dispose - НЕ ИЗМЕНЯЕТ значение указателя!
добавьте после неё

  first := nil;

[Codemaster_N1]

h := first;
while h <> nil do
begin
    h2 := h^.next;
    dispose(h);
    h := h2;
end;

[sir.andrey]

Сообщение от Serge_Bliznykov

а с чего Вы решили, что он не удалился?!
операция dispose - НЕ ИЗМЕНЯЕТ значение указателя!
добавьте после неё

  first := nil;

Все равно не удаляется!!!

[Serge_Bliznykov]

Все равно не удаляется!!!

А теперь с этого места поподробнее!
С чего Вы решили, что не удаляется?!
Давайте полностью пример кода, который подтверждает Ваши слова!

[sir.andrey]

program din_mas;
uses crt;
type
     adres=^adres_type;
     adres_type=record
     next,pred:adres;
     data:integer;
     end;
var h,first,last,buf,h_buf,pered,posle:adres;
    i,n:integer;
    slovo,slovo2:string;

{procedura vivoda na ekran}
procedure vivod;
begin
h:=first;
write ('spisok:');
while h^.next<>nil do begin
                      write (h^.data,' ');
                      h:=h^.next;
                      end;
write (h^.data,' ');
end;
{==========konec==========}

{procedura dobavleniya elementa}
procedure add(var n:integer);
var x:integer;
begin
writeln;
h:=first;
write ('noviy element postavim na mesto nomer:');
readln (x);
randomize;
if (h=first) and (x=1) then begin
                            new(h_buf);
                            h^.pred:=h_buf;
                            h_buf^.next:=h;
                            h_buf^.pred:=nil;
                            h_buf^.data:=random(100);
                            first:=h_buf;
                            end
                       else begin
                            if x=n+1 then begin
                                          new(h_buf);
                                          last^.next:=h_buf;
                                          h_buf^.pred:=last;
                                          h_buf^.data:=random(100);
                                          h_buf^.next:=nil;
                                          last:=h_buf;
                                          end;
                                    end;
if (x<>n+1) and (x<>1) then begin
                            for i:=1 to n do begin
                            if i=x-1 then pered:=h;
                            if i=x   then begin
                                          posle:=h;
                                          new (h_buf);
                                          pered^.next:=h_buf;
                                          posle^.pred:=h_buf;
                                          h_buf^.pred:=pered;
                                          h_buf^.data:=random(100);
                                          h_buf^.next:=posle;
                                          end;
                                             h:=h^.next;
                                             end;
end;
n:=n+1;
end;
{=============konec============}

{procedura ydaleniya elementa}
procedure del(var n:integer);
var x:integer;
begin
writeln;
write ('nomer ydalyaemogo elementa:');
readln(x);
h:=first;
if (x=1) and (h=first) then begin
                            h:=first^.next;
                            h^.pred:=nil;
                            dispose(first);
                            first:=h;
                            end;
if (x=n) then begin
              h:=last^.pred;
              h^.next:=nil;
              dispose(last);
              last:=h;
              end;
if (x<>n) and (x<>1) then begin
                          for i:=1 to n do begin
                          if i=x-1 then pered:=h;
                          if i=x then h_buf:=h;
                          if i=x+1 then begin
                                        posle:=h;
                                        pered^.next:=posle;
                                        posle^.pred:=pered;
                                        dispose(h_buf);
                                        end;
                                           h:=h^.next;
                                           end;
                          end;
n:=n-1;
end;
{============konec===========}

[sir.andrey]

{procedura ydaleniya vseh elementov menshe m}
procedure menshe_m(var n:integer);
var m:integer;
begin
h:=first;
h:=h^.next;
writeln;
write('chislo m=');
readln (m);
while h^.next<>nil do begin
if (h<>first) and (h<>last) and (h^.data<m) then begin
                                                 pered:=h^.pred;
                                                 posle:=h^.next;
                                                 pered^.next:=posle;
                                                 posle^.pred:=pered;
                                                 h_buf:=h;
                                                 h:=h^.next;
                                                 dispose(h_buf);
                                                 n:=n-1;
                                                 end
                                            else h:=h^.next;
                      end;
h:=first;
if (h=first) and (h^.data<m) then begin
                                  h:=first^.next;
                                  h^.pred:=nil;
                                  dispose(first);
                                  first:=h;
                                  n:=n-1;
                                  end;
h:=last;
if (h=last) and (h^.data<m) then begin
                                 h:=last^.pred;
                                 h^.next:=nil;
                                 dispose(last);
                                 last:=h;
                                 n:=n-1;
                                 end;
end;
{==================konec====================}


begin

{sozdanie slychaynogo dinamicheskogo massiva}
clrscr;
write ('kol-vo elmentov:');
readln(n);
randomize;
new(h);
h^.pred:=nil;
h^.data:=random(100);
h^.next:=nil;
first:=h;
buf:=h;
for i:=2 to n do begin
                 new(h);
                 buf^.next:=h;
                 h^.pred:=buf;
                 h^.data:=random(100);
                 h^.next:=nil;
                 last:=h;
                 buf:=h;
                 end;
{vivod dinamicheskogo massiva na ekran}
clrscr;
vivod;
slovo2:='da';
while slovo2='da' do begin
writeln;
write ('redaktirovat massiv?  da/net:');
readln(slovo2);
if slovo2='da' then begin
clrscr;
vivod;
slovo:='da';
{dobavlenie}
while slovo='da' do begin
writeln;
write ('dobavlenie elementov da/net:');
readln(slovo);
if slovo='da' then begin
                   clrscr;
                   vivod;
                   add(n);
                   clrscr;
                   vivod;
                   end;
                    end;
slovo:='da';
clrscr;
vivod;
{ydalenie}
while slovo='da' do begin
writeln;
write ('ydalenie elementov da/net:');
readln(slovo);
if slovo='da' then begin
                   clrscr;
                   vivod;
                   del(n);
                   clrscr;
                   vivod;
                   end;
                    end;
clrscr;
vivod;
slovo:='da';
{ydalenie elementov menshe m}
while slovo='da' do begin
writeln;
write ('ydalenie elementov menshe m da/net:');
readln(slovo);
if slovo='da' then begin
                   clrscr;
                   vivod;
                   menshe_m(n);
                   clrscr;
                   vivod;
                   end;
                    end;
                   end;
                    clrscr;
                    vivod;
                    end;
vivod;
h:=first;
while h^.next<>nil do begin
                       first:=h^.next;
                       first^.pred:=nil;
                       dispose(h);
                       h:=first;
                       end;
dispose(first);
first:=nil;
vivod;
end.

[sir.andrey]

При распечатке, выводит три левых числа!!!
Удаление в самом конце программы!!!