Процедуры и функции. Возможные ошибки

Невозвращение значения функции по одной из ветвей алгоритма

function Bad(x: integer): integer;
begin
  if x>0 then 
    Result := 777 
  // При x<=0 значение функции непредсказуемо  
end;

begin
  writeln(Bad(-2));  
end.

Ссылки

Алгоритмы для начинающих