А точно нужно находить элемент списка, у которого СЛЕДУЮЩИЙ элемент содержит нечётное число?
Может быть надо так
Код:
function Found_last_elem(L:TList):TList;
begin
result:=L;
while (result <> nil) do
begin
if (result^.info mod 2) <>0 then exit;
result:=result^.next;
end;
end;
И, соответственно, проверять
Код:
if Podd=nil then
writeln('Нечетных чисел нет') else
И, кстати, если это Дельфи, то значок
^ можно не писать.