type
  &nbspdoorType = record
     &nbspwidth : Integer;
     &nbspheight : Integer;
     &nbspcolor : String[10];
   end;

var
  &nbspaDoor : doorType;
begin
 
with aDoor do
begin
  &nbspwidth := 30;
  &nbspheight := 50;
  &nbspcolor := '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   &nbspdoorType = record      &nbspwidth : Integer;      &nbspheight : Integer;    end; var   &nbspdoor : doorType; begin   &nbspclrscr;   &nbspwriteln('Enter the door height');   &nbspreadln(door.height);   &nbspwriteln('Enter the door width');   &nbspreadln(door.width);   &nbspwriteln('The door area is ', door.width*door.height);   &nbspreadln; end.