This sounds like a job for : records

Records are just a way of defining your own type. It is done like this:

type
   doorType = record
      width : Integer;
      height : Integer;
      color : String[10];
   end;

var
   aDoor : doorType;
begin

with aDoor do
begin
   width := 30;
   height := 50;
   color := 'Blue';
end;
end.

So here's my sample program for finding the area of a door.

program doorFind;
{Find the area of a door}

uses crt;

type
   doorType = record
      width : Integer;
      height : Integer;
   end;
var
   door : doorType;
begin
   clrscr;
   writeln('Enter the door height');
   readln(door.height);
   writeln('Enter the door width');
   readln(door.width);
   writeln('The door area is ', door.width*door.height);
   readln;
end.