Найти предпоследний элемент списка

uses crt;
Type u=^zap;
     zap=record
      inf:integer;
      ukz:u;
     end;
var psp:u;
    ch:char;
    ukl:integer;
   vkl:u;
 
 
procedure CreateList(var psp:u);
var q,p:u;
    ch:char;
begin
New(q);
Writeln('‚ўҐ¤ЁвҐ Ё*д®а¬*жЁ®**®Ґ Ї®«Ґ н«Ґ¬Ґ*в*...');
Readln(q^.inf);
psp:=q; {adress pervogo elementa}
Writeln('Џа®¤®«¦*вм ўў®¤ y\n?');
ch:=Readkey;
while ch in ['y','Y'] do
begin
 New(p);
 Writeln('‚ўҐ¤ЁвҐ Ё*д®а¬*жЁ®**®Ґ Ї®«Ґ Ґ«Ґ¬Ґ*в*...');
 Readln(p^.Inf);
 q^.ukz:=p;
 q:=p;
 Writeln('Џа®¤®«¦Ёвм ўў®¤ y\n?');
 ch:=Readkey;
end;
q^.ukz:=nil
end;
 
procedure PrintList(psp:u);
var t:u;
begin
if psp=nil then
begin
 Writeln('‘ЇЁб®Є Їгбв!');
 Readkey;
 exit;
end;
Writeln('‘®¤Ґа¦Ё¬®Ґ бЇЁбЄ*...');
t:=psp;
while t<>nil do
begin
 Write(t^.inf,' --> ');
 t:=t^.ukz;
end;
Writeln(' Nil');
Writeln('Ќ*¦¬ЁвҐ «оЎго Є«*ўЁиг...');
Readkey;
end;
 
{
procedure VkluchenieList(var psp,vkl:u);
var q,s,t,p:u;
begin
{Poisk predposlednego elementa
q:=psp;
s:=psp^.ukz;
while s^.ukz^.ukz<>nil do
 begin
  q:=s;
  s:=s^.ukz;
 end;
if vkl^.inf<=p^.inf then
 p^.ukz:=vkl;
end;
}
 
 
procedure DestroyList(var psp:u);
var t:u;
begin
while psp<>nil do
begin
 t:=psp;
 psp:=psp^.ukz;
 dispose(t);
end;
end;
 
begin
psp:=nil;
repeat
ClrScr;
Writeln('1. ‘®§¤*вм бЇЁб®Є');
Writeln('2. Џа®б¬®ваҐвм бЇЁб®Є');
Writeln('3. ‚Є«озЁвм ў бЇЁб®Є н«Ґ¬Ґ*в* ЇҐаҐ¤ Ї®б«Ґ¤*Ё¬');
Writeln('4. “¤*«Ёвм бЇЁб®Є');
Writeln;
Writeln('----------------------');
Writeln;
Writeln('0. ‚л室');
Writeln;
Writeln('‚*и ‚лЎ®а: ');
ch:=ReadKey;
Writeln(ch);
Writeln;
case ch of
 '1': begin
       psp:=nil;
       CreateList(psp);
      end;
 '2': PrintList(psp);{
 '3': begin
       Writeln('‚ўҐ¤ЁвҐ зЁб«®...');
       Readln(ukl);
       VkluchenieList(psp, vkl);
      end;                   }
 '4': begin
       DestroyList(psp);
       Writeln('‘ЇЁб®Є г¤*«Ґ*...');
       Readkey;
      end;
end;
until ch='0';
end.