with Ada.Text_IO; use Ada.Text_IO;
with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;

procedure Deld is

   type Charizard_Array is
     array(1..256) of Character;

   type String_Type is
      record
     Char_Array : Charizard_Array;
     Length : Integer := 0;
      end record;

   procedure Get( Temp_Var : in out String_Type) is
      I : Integer := 1;
   begin
      loop
     if not End_Of_Line and I <= 256 then
        Get(Temp_Var.Char_Array(I));
        Temp_Var.Length := I;
        I := I +1;

     else
        Skip_Line;
        exit;
     end if;
      end loop;
   end Get;

   procedure Put(Temp_Var : in out String_Type) is

   begin
      for I in 1..Temp_Var.Length loop
     Put(Temp_Var.Char_Array(I));
     end loop;
   end Put;

   function "=" (VarOne,VarTwo : in String_type) return Boolean is
   begin
     if VarOne.Length = VarTwo.Length then
     for I in 1..VarOne.Length loop
        if VarOne.Char_Array(I) /= VarTwo.Char_Array(I) then
           return False;
        end if;
     end loop;
     return True;
     else
    return False;
     end if;
   end "=";

   VarOne, VarTwo : String_Type;

begin
   Put("Enter a maximum of 256 characters: ");
   -- Get(Temp_Var.Char_Array);
   --Put(Temp_Var.Char_Array(1));
   Get(varOne);
 New_Line;
   Put("Enter a maximum of 256 characters (Again): ");
   Get(VarTwo);
   New_Line;
   Put(VarOne);
   New_Line(2);
   Put(VarTwo);
   New_Line(2);
   if VarOne = VarTwo then
      Put("The variables are equal. ");
   else
      Put("The variables are not equal. ");
   end if;


end Deld;