Cosa intendi dire con "dare un valoer numerico"?
Se intendi creare un Record (ossia una struttura dati eterogenea) esiste l'apposito tipo RECORD.
Ma se a quei campi intendi dare solo valori numerici, allora ti conviene utilizzare gli array e un modo carino potrebbe essere questo:
codice:
Program spesefam;
Const DIVERTIMENTO = 1;
      AFFITTO      = 2;
      ...
      ALTRO        = N;  (* N deve essere un numero *)

TYPE Spese = ARRAY[1..N] Of Integer;

Var spesa : Spese;

Begin
   (* Ora puoi utilizzare le costanti per indicizzare l'array *)
   spesa[DIVERTIMENTO] := 500;
   spesa[AFFITTO] := 600;
   ...
End.
Ciao.