Замена второго элемента односвязного списка на предпоследний элемент

[s24g]

Есть процедура(Change_node), где меняется местами первый и предпоследний элементы списка (общий случай) и частные случаи, а как сделать чтоб поменялся второй и предпоследний понять не могу. Кому не лень исправьте. Заранее спасибо))

Program List; 
 {obmen mestami pervogo i predposlednego elementov spiska}
Uses crt; 
Type  u =^zap;       
       zap = record      {struktura elementa spiska}
          inf : integer; 
          ukz : u; 
       end; 
Var PSP : u;             {ykazatel' spiska}
           ch : integer;
Procedure Create_List (Var PSP:u); 
 {sozdanie neyporyadochevanogo spiska}
Var  q,           {ykazatel' na predidyshii element spiska}
p : u;           {ykazatel' na tekyshie  element spiska  }
ch : char;
Begin 
New(q);
WriteLn ('vvedite informachionnoe pole elementa:');
ReadLn (q^.inf);
   PSP:=q;
   WriteLn ('Prodoljit vvod? y/n');
ch:=ReadKey;
While ch In ['y','Y','h','H'] do
Begin
New(p);
         WriteLn ('vvedite informachionnoe pole elementa');
ReadLn (p^.inf);
q^.ukz:=p;
q:=p;
WriteLn ('Prodoljit vvod?  y/n');
ch:=ReadKey;
End;
q^.ukz:=nil;
End;
Procedure Print_list(PSP:u);
       { аechat elementov spska, PSP - ykazatel' spiska  }
Var t:u;
Begin
   If PSP=nil then
      begin
        WriteLn ('Spisok pyst');
         ReadKey;
         Exit;
      end;
  Writeln ('Spisok:');
  t:=PSP;
  While t <> nil do
      begin
          Write (t^.inf,' --> ');
           t:=t^.ukz;
      end;
  WriteLn ('NIL');
  WriteLn ('Najmita lybyu klavishy');
  Readkey;
End;
 
Procedure Destroy_list(Var PSP:u);
 { osvobojdenie pamyati, zanytoi elementami spiska}
Var t:u;
Begin
    While PSP <> nil do
        begin
            t:=PSP;
            PSP:=PSP^.ukz;
            Dispose(t);   {osvobojdenie pamyati}
        end;
End;
 
Procedure Change_node (Var PSP:u);
{obmen pervogo i predposlednego elementov spiska}
Var q, s, t : u;
Begin
If (PSP=nil) or (PSP^.ukz=nil) or (PSP^.ukz^.ukz=nil)  then
 begin
           WriteLn ('V spiske menshe 3-h elementov');
             Print_list(PSP);
           exit;
       end;
           {poisk predposlednego elementa}
      q:=PSP;
      s:=PSP^.ukz;   {s - ykazatel' na predposlednii element}
      While s^.ukz^.ukz<>nil do
           begin
              q:=s;
              s:=s^.ukz;
           end;
       If q=PSP then    {osobii slychai-obmen 1-go i 2-go elementov}
          begin
              q^.ukz:=s^.ukz;
              s^.ukz:=q;
              PSP:=s;
              WriteLn ('Obmen 1-go s 2-go elementov vipolnen');
              Readkey;
              Exit
          end;
     {obchii slychai}
       t:=PSP^.ukz;
       PSP^.ukz:=s^.ukz;
       s^.ukz:=t;
       q^.ukz:=PSP;
       PSP:=s;
       WriteLn ('Obmen elementov vipolnen');
       Readkey;
End;
 
 
Begin
     PSP:=nil;
     Repeat
       ClrScr;
       WriteLn ('1 -Sozdat spisok');
       WriteLn ('2 -Prosmotret spisok');
       WriteLn ('3 -Pomenyat mestami pervii i predposlednii elementi ');
       WriteLn ('4 -Ydalit spisok');
       WriteLn ('---------------------------------------------------------');
       WriteLn ('0 -Vihod');
       WriteLn;
       Write ('Vash vibor:');
       readln(ch);
 
       WriteLn;
 
       Case ch of
1:begin
   PSP:=nil;
   Create_list(PSP);
   end;
2: Print_list(PSP);
3: Change_node(PSP);
4: begin
   Destroy_list(PSP);
   Writeln ('Spisok ydalyon!');
   Readkey;
  end;
       end; {case}
   until ch=0;
End.

[s24g]

Помогите, очень надо, а как 2-й с предпоследним поменять просто не соображу. Кому не лень посмотрите, пожалуйста. Заранее спасибо))

[Stilet]

Ну сделай себе функцию поиска.
Что-то типа:

function Find(n:integer):u;
var i:u;
begin
 if n<0 then n=Count+n;
 i:=PSP;
 while (i<>nil)and(n>0) do begin
  i=i.ukz;
  dec(n);
 end;
 Result:=i;
end;

Соответственно:

var q,w:u;
...
q:=Find(2); //Найден второй элемент
w:=Find(-2); //Найден предпоследний

Обращаю внимание на два момента:
1) Нужна функция или переменка, которая бы хранила кол-во элементов в списке.
2)Писал это с потолка, так что не копипастить. Разобраться в идее и подогнать под себя.

Все яснышко?

[s24g]

1) Нужна функция или переменка, которая бы хранила кол-во элементов в списке.

А можно как-то без функций, просто в этом куске

{obchii slychai}
t:=PSP^.ukz;
PSP^.ukz:=s^.ukz;
s^.ukz:=t;
q^.ukz:=PSP;
PSP:=s;
WriteLn ('Obmen elementov vipolnen');
Readkey;

как-то переставить указатель, чтоб вместо первого элемента был второй?

[Stilet]

А чем функция не угодила?

[s24g]

Не знаю мне просто кажется мороки будет меньше, просто переставить указатель, только я понять не могу где это надо сделать.

[Stilet]

Фраза "как-то сделать" это из области "тыжпрограммизма". Я инженер, я стараюсь мыслить не "как-то" а "как именно", поэтому других предложений от меня не поступит.