Однонаправленные списки

[*cash*]

У меня почему-то неправильно работает процедура замены элемента.
У меня всегда заменяется 2-й элемент, неважно как я изменяю n

При вызове

type int=integer;
     sv=^zv;
     zv=record
        info:int;
        link:sv;
        end;
var U_s,p:sv;
    elem,i,k,n:int;


Write ('Введите номер элемента который вы хотите заменить: ');
readln(n);
Write ('Введите число которым хотите его заменить: ');
readln(elem);
zamena (U_s,elem,n);
writeln;
Writeln ('Новый список:');
vivod_spiska (U_s);

Сама процедура

Procedure zamena (U_s:sv; elem:int; n:int);
var U_z:sv;   i:int;
begin
i:=0;
U_z:=U_s; 
while U_z<>nil do begin
                  inc(i);
                  if i=n then begin
                              U_z:=U_s^.link;
                              if U_s^.link<>nil then 
                              begin
                              U_s^.link:=U_s^.link^.link;
                              dispose(U_z);
                              end; 
                              
                              new(U_z);
                              U_z^.info:=elem;
                              U_z^.link:=U_s^.link;
                              U_s^.link:=U_z; 
                              end;
                  U_z:=U_z^.link;
                  
                  end;
end;

[Borkot]

Ребята как вы форматируете код, что он хорошо читабельный?

[Npwas]

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

While U_z<>nil Do
    IF i=n Then 
         Begin
              U_z^.info:=elem;
              exit;
         End
    Else
         U_z:=U_z^.link;

[*cash*]

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

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

While U_z<>nil Do
    IF i=n Then 
         Begin
              U_z^.info:=elem;
              exit;
         End
    Else
         U_z:=U_z^.link;

маленько видоизменил, но идею понял )))
Так и сделал ))
Все работает )) Ок )))
Спасибо )))