with Ada.Text_IO; use Ada.Text_IO;
package WordPkg is
type word is private;
WordTooLong: Exception;
function New_Word(Item : String) return Word;
function To_String(Item : Word) return String;
function Length (Item : Word) return Natural;
function Max_Word_Size return Positive;
function "=" (X, Y : Word) return Boolean;
function "<=" (X, Y : Word) return Boolean;
function "<" (X, Y : Word) return Boolean;
function ">=" (X, Y : Word) return Boolean;
function ">" (X, Y : Word) return Boolean;
procedure Get (File : File_Type; Item : out Word);
procedure Get (Item : out Word);
procedure Put (File : File_Type; Item : Word);
procedure Put (Item : Word);
private
MaxWordSize: Constant Natural := 80;
type word is record
Letters: String(1..MaxWordSize);
Length: Natural range 0 .. MaxWordSize := 0;
end record;
end WordPkg;