Procedimiento mal invocado

[gerupc]

Hola,

tengo un problema al llamar al procedimiento 'absoluto', ya que quiero que el resultado me lo de como valor absoluto y donde yo quiero(donde doy el resultado en cm cuadrados).. EL problema radica en que no sé como llamarlo para que cumpla esa función . Aquí os dejo el código:

Código Delphi [-]
 
var
 resultado,x1,x2,y1,y2: integer;

procedure absoluto(parametro: integer);
 Begin
  if parametro < 0 then
  parametro := -parametro;
  write(parametro);
 End;
Begin
 {Omito esta parte del código, por no ser necesaria}

 Resultado := (x2-x1)*(y2-y1);
 
 Write('El resultado es: ', absoluto(resultado),' cm cuadrados');
 readln;
End.

Pues a ver si alguine me puede guiar un poco, muchísimas gracias de antemano .

Un saludo,

Geru.