Добрый вечер всем. Нужна помощь - есть реализация линейного односвязного списка на Паскале. Данной процедурой хочу продублировать все положительные элементы, однако выбрасывает переполнение буфера, зацикливает. Не могу обнаружить ошибку, помогите пожалуйста.
procedure doublePlus(var start: link);
var
p: link;
begin
if start <> nil then begin
if start^.inf > 0 then begin
new(p);
p^.inf := start^.inf;
p^.next := start^.next;
start^.next := p;
end doublePlus(start^.next)
end
end;