нужно срочно сделать односвязный список

Program Laba_list;
 uses
 crt;
 Type ukazat= ^S;
 S= record 
 inf: integer;
 Next: ukazat;
 End;
 var spis,last , el:ukazat;
 inf , znach , posi:integer;
 k:integer;
 
 procedure V_nachalo(var spis:ukazat;znach:integer);
 begin
 if(spis= nil) then
 begin
 writeln('spis is empty');
 New(spis);
 el:=spis;
 
 end
 else
 begin
 el:=spis;
 while el^.next<>nil do
 el:=el^.next;
 New(el^.next);
 el:=el^.next;
 end;
 el^.next:=nil;
 el^.inf:=znach;
 end;
 
 Procedure Vib_nac(var spis:ukazat;znach:integer);
 begin
 if (spis = nil) then
 begin
 writeln('no elements');
 
 end
 else if (spis^.next = nil) then
 begin
 el:= spis;
 znach:=spis^.inf;
 dispose(spis); {если что удалить}
 spis := nil;
 writeln('element is deleted');
 end;
 end;
 
 
 Procedure V_end(var last:ukazat;znach:integer);
 begin
 if(last= nil) then
 begin
 writeln('spis is empty');
 
 New (last);
 el:=last;
 end
 else
 begin
 el:=last;
 while el^.next<>nil do
 el:=el^.next;
 New(el^.next);
 el:=el^.next;
 end;
 el^.next:=nil;
 el^.inf:=znach;
 end;
 
 
 
 
 procedure Vib_end(var last:ukazat;znach:integer);
 begin
 if (last = nil) then
 begin
 writeln('no elements');
 
 end
 else
 if (last^.next = nil) then
 begin
 el:=last;
 znach:=last^.inf;
 dispose(last); {если что удалить}
 last:= nil;
 writeln('element is deleted');
 end
 end;
 
 
 Function SearchElemZnach(var spis:ukazat;znach:integer):ukazat;
 begin
 if spis<>nil then
 while (spis<>nil)and (znach<>spis^.inf) do
 spis:=spis^.next;
 SearchElemZnach:=spis;
 end;
 
 
 Procedure DelElemPos(var spis:ukazat;posi:integer);
 var i:integer;
 begin
 if posi<1 then
 exit;
 if spis=nil then
 begin
 writeln('spis is empty');
 exit
 end;
 i:=1;
 el:=spis;
 while (el<>nil) and (i<>posi) do
 begin
 el:=el^.next;
 inc(i)
 end;
 if el=nil then
 begin
 Writeln('элемент с порядковым номером ,posi, нет в списке');
 writeln(' v spiske ' ,i-1, ' element(s)');
 exit
 end;
 Writeln('element is deleted');
 end;
 
 procedure PrintSpis(spis:ukazat);
 begin
 if spis=nil then
 begin
 writeln('список пуст');
 exit;
 end;
 while spis<>nil do
 begin
 Write (spis^.inf, ' ');
 spis:=spis^.next
 end;
 end;
 
 
 
 Procedure PrintEl(el:ukazat);
 begin
 if el=nil then
 begin
 writeln('список пуст');
 exit;
 end;
 while el<>nil do
 begin
 Write (el^.inf, ' ');
 el:=el^.next
 end;
 end;
 
 Begin
 clrscr;
 spis:=nil;
 
 repeat
 writeln('viberite nomer menu');
 
 writeln('1) edd znachenia from perem to nachalo of spis');
 writeln('2) edd znachenia from perem to end of spis');
 writeln('3) vib of znachenia from nachalo of spis to perem ');
 writeln('4) vib of znachenia from end of spis to perem ');
 writeln('5) SearchElemZnach');
 writeln('6) delete SearchElemZnach');
 writeln('7) otobrazhenie perem');
 writeln('8) otobrazhenie spis');
 writeln('9) finish');
 readln(k);
 Writeln('input value:');
 
 case k of
 1:V_nachalo(spis,znach);
 2:Vib_nac(spis,znach);
 3:V_end(last,znach);
 4:Vib_end(last,znach);
 5:SearchElemZnach(spis,znach);
 6elElemPos(spis,posi);
 7:PrintEl(el);
 8:PrintSpis(spis);
 9:exit;
 end;
 writeln;
 until k=9;
 end.