type Vehicle = record
  Name: String;
  Wheels: Integer;
  Doors: Integer;
  Seats: Integer;
end;

type Car = record(Vehicle)
  Automatic: Boolean;
  MaxSpeed: Integer;
end;

type Truck = record(Vehicle)
  OffRoad: Boolean;
  FourWheelDrive: Boolean;
  MaxSpeed: Integer;
end;

var
  V: Vehicle = ['Vehicle', 4, 2, 4];
  C: Car = ['Car', 4, 2, 4, true, 700];
  T: Truck = ['Truck', 4, 2, 4, true, true, 400];
begin
  writeln(V);
  writeln(C);
  writeln(T);
end;