-- Object Orientation, Ada Style (or is it?) -- This is the first of three files named bank.ads, bank.adb, and ootest.adb package bank is type account is private; procedure makeaccount(a : out account; name : String; bal : integer); procedure deposit(a : in out account; x : integer); procedure withdraw(a : in out account; x : integer); procedure inquiry(a : in account); private type account is record balance : integer; name : String(1..5); -- how do you get it unbounded? end record; end bank;