gerupc, para que pudieras usar
absoluto como indicas, necesitarías que fuera una función, pero tú la definiste como procedimiento. Tendría que ser así:
Código Delphi
[-]
function absoluto(parametro: integer);
begin
if parametro < 0 then
parámetro := -parametro
Result := parametro;
end;
Pero, como te comenta Jhonny, ya existe una función que hace eso.
// Saludos