Ругается на процедуру.

[Neprosto]

В общем задание такое: Написать программу, содержащую процедуру, которая удаляет из списка L первый отрицательный элемент, если такой есть. Элементы вводятся с клавиатуры.

Вот код:

program Lab_10;


type
ptrZap = ^Zap;
zap = record
info:integer;
next:ptrzap;
end;

Procedure spisok(var curr:ptrzap);
var
first,buff:ptrzap;
Begin
curr:=first;
if curr^.info<0 then
first:=curr^.next
else
begin
while curr <> nil do
if curr^.info >= 0 then
curr:=curr^.next
else
begin
buff:=curr^.next;
curr^.next:=buff^.next;
break;
end;
end;
End;



var
first,buff,curr:ptrzap;
kol,i:byte;

begin

read(kol);  //читает кол-во эл-тов

if buff=nil
then
   begin
   new(buff);
   
   read(buff^.info);
   buff^.next:=nil;
   first:=buff;
   curr:=buff;
   end  ;
  { else
    begin
    new(buff);
    read(buff^.info);
    buff^.next:=nil;
    first:=buff;
    curr^.next:=buff;
    end;}


for i:=1 to kol-1 do
         begin
         new(buff);
         
         read(buff^.info);
         buff^.next:=nil;
         curr^.next:=buff;
         curr:=buff;
        end;





curr:=first;
 for i:=0 to (kol-1) do
Begin
  Write(curr^.info, ' ');
  curr := curr^.Next;
End ;
curr:=first;
buff:=first;
spisok(curr);
writeln('');

 for i:=0 to (kol-2) do
Begin
  Write(curr^.info, ' ');
  curr := curr^.Next;
End ;
end.

на 16 строке выдает ошибку:Непредвиденное исключение EAccessViolation. Access violation at address 0074CA25 in module 'PascalABC.exe'. Read of address EDE5E4E5. Программа завершена (Laba#10.pas, строка 16)

как исправить?

P.S. язык - Pascal