Динамические списки! Pascal!

[sir.andrey]

Поивет друзья!!!
При запуске программы в строке (Dispose(k)) обнаруживается ошибка!
Я не понимаю почему...
Подскажите пожалуйста!

program adresa;
uses crt;
type
     adres=^adres_type;
     adres_type=record
      next,pred:adres;
       data:integer;
	    end;
var next,pred,p,h,buf,one,pered,posle,pered2,posle2,k,close:adres;
    i,n,t,r,y,M:integer; bykva,bykva2:string;
{ydaleni elementov menshe M}
procedure menshe_M(var n:integer);
begin
h:=one;
writeln ('vvedite M');
write ('M=');
readln (M);
for i:=1 to n do begin
                 if (h^.data<M) and (i=1) then begin
                                               h:=h^.next;
                                               h^.pred:=nil;
                                               dispose (one);
                                               one:=h;
                                               end;
                 if (h^.data<M) and (i=n) then begin
                                               h:=h^.pred;
                                               h^.next:=nil;
                                               dispose (close);
                                               close:=h;
                                               end
                                          else begin
                                               k:=h;
                                               pered2:=k^.pred;
                                               posle2:=k^.next;
                                               pered2^.next:=posle2;
                                               posle2^.pred:=pered2;
                                               dispose(k);
                                               end;
h:=h^.next;
end;
end;
{ydalenie elementa}
procedure del(var n:integer);
begin
r:=1;
writeln;
h:=one;
write ('ydalit element nomer: ');
readln (t);
if t=1 then begin
            h:=one^.next;
            h^.pred:=nil;
            dispose(one);
            one:=h;
            end
      else begin
           if y=n then begin
                       h:=close^.pred;
                       h^.next:=nil;
                       dispose(close);
                       close:=h;
                       end
                  else begin
                       for i:=1 to n do begin
                                        if i=t-1 then pered:=h;
                                        if i=t then k:=h;
                                        if i=t+1 then begin
                                                      posle:=h;
                                                      pered^.next:=posle;
                                                      posle^.pred:=pered;
                                                      dispose (k);
                                                      end;
                                        h:=h^.next;
                                        end;
                       end;
            end;
n:=n-r;
end;

Продолжение.......

[sir.andrey]

Продолжение программы.....

{dobavlenie elementa}
procedure plus (var n:integer);
begin
r:=1;
writeln;
writeln ('na kakoe mesto vstavim noviy element?');
write ('na: ');
readln (t);
h:=one;
if t=1 then begin
            new(k);
            h^.pred:=k;
            k^.next:=h;
            k^.data:=random(100);
            k^.pred:=nil;
            one:=k;
            r:=r+1
           end
       else begin
            if t=n+1 then begin
                          new(k);
                          close^.next:=k;
                          k^.pred:=close;
                          k^.data:=random(100);
                          k^.next:=nil;
                          r:=r+1;
                          end
                     else begin
                          for i:=1 to n do begin
		                           if i=t-1 then pered:=h;
		                           if i=t then begin
                                                       posle:=h;
                                                       r:=r+1;
                                                       new(k);
                                                       k^.data:=random(100)+1;
                                                       k^.pred:=pered;
                                                       pered^.next:=k;
                                                       posle^.pred:=k;
                                                       k^.next:=posle;
                                                       end;
		                           h:=h^.next;
		                           end;
                          end;

            end;

n:=n+r;
end;
{vivod na ekran}
procedure vivod;
begin
write('spisok: ');
h:=one;
while h^.next<>nil do begin
                      write (h^.data,' ');
                      h:=h^.next;
                      end;
write (h^.data,' ');
end;

{ocnovnaya proga}
begin
clrscr;
randomize;
write('kol-vo elementov:');
readln (n);
clrscr;
buf:=nil;
new(h);
one:=h;
h^.pred:=nil;
h^.data:=random(100)+1;
h^.next:=nil;
buf:=h;
for i:=1 to n-1 do begin
                   new(h);
                   h^.pred:=buf;
                   h^.next:=nil;
                   h^.data:=random(100)+1;
                   buf^.next:=h;
                   buf:=h;
                   close:=h;
		   end;
vivod;
plus(n);
vivod;
del(n);
vivod;
menshe_M(n);
vivod;
end.

[Stilet]

for i:=1 to n-1 do begin
                                        if i=t-1 then pered:=h;
                                        if i=t then k:=h;
                                        if i=t+1 then begin
                                                      posle:=h;
                                                      pered^.next:=posle;
                                                      posle^.pred:=pered;
                                                      dispose (k);
                                                      end;
                                        h:=h^.next;
                                        end;

Ты же из списка один элемент грохаешь? Стало быть список на один элемент становится меньше.

[kta87]

Я тут тебе исправлял вроде все получилось!

clrscr

- это что ? (основная программа)

[sir.andrey]

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

Ты же из списка один элемент грохаешь? Стало быть список на один элемент становится меньше.

Здесь все процедуры я сделаю зацикленными, поэтому можно будет удалять и прибавлять элементы сколко хочешь!

А не правильно у меня вот в этом месте!

procedure menshe_M(var n:integer);
begin
h:=one;
writeln ('vvedite M');
write ('M=');
readln (M);
for i:=1 to n do begin
                 if (h^.data<M) and (i=1) then begin
                                               h:=h^.next;
                                               h^.pred:=nil;
                                               dispose (one);
                                               one:=h;
                                               end;
                 if (h^.data<M) and (i=n) then begin
                                               h:=h^.pred;
                                               h^.next:=nil;
                                               dispose (close);
                                               close:=h;
                                               end
                                          else begin
                                               k:=h;
                                               pered2:=k^.pred;
                                               posle2:=k^.next;
                                               pered2^.next:=posle2;
                                               posle2^.pred:=pered2;
                                               dispose(k);
                                               end;
h:=h^.next;
end;
end;

P.S. clrscr-очистка экрана!!!!

[sir.andrey]

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

Я тут тебе исправлял вроде все получилось!

Где тут?