ADA95 - Hjälp

with Ada.Integer_Text_IO ;
with Ada.Text_Io ;
with Ada.Float_Text_IO ;
with date_handling ;

use Ada.Integer_Text_IO ;
use Ada.Float_Text_IO ;
use date_handling ;


procedure laboration4 is

T1 : Date_Type ;

begin 

Get(Date_Type) ;

end laboration4 ;

package body Date_Handling is

-- Proceduren Get som läser in ett datum

procedure Get(Item : out Date_Type) is

S : String(1 .. 10) ;

begin 

Get(S) ;

Item.Year := Integer'Value(S(1 .. 4)) ;
Item.Month := Integer'Value(S(6 .. 7)) ;
Item.Day := Integer'Value(S(9 .. 10)) ;


end Get ;

procedure Put(Item : in Date_Type) is

begin

Put(Item.Day);

end Put ;

end Date_Handling ;

package Date_Handling is

-- Deklaration av datatypen som representerar en tid

type Date_Type is private ;

-- Deklaration av underprogram för in-och utmatning

procedure Get(Item : out Date_Type) ;
procedure Put(Item : in Date_Type) ;

-- Definition av undantag som kan inträffa

Time_Error : exception ;

private 

-- Definitionen av den privata typen

type Date_Type is
  record
    Year : Integer ;
	Month : Integer ;
	Day : Integer ;
  end record ;
  
end Date_Handling ;

with Ada.Text_IO ;  use Ada.Text_IO ; 

with Ada.Sequential_IO ;                

procedure laboration6 is 

type Intressen_Array is
     array(1 .. 10) of integer ;
 
type Persondata is 
  record 
   Efternamn : String(1 .. 20) ;
   Namn : String(1 .. 20) ;
   Gatuadress : String(1 .. 20) ;
   Postadress : String(1 .. 20) ;
   Antal_Intressen : Integer ;
   Intressen : Intressen_Array ;
end record   ;


package Read_Intressen is
      new Ada.Sequential_IO(Persondata) ;
	  
use Read_Intressen ;

 
Source, Target : File_Type ;
Post : Persondata ;


begin

Ada.Text_IO.Put("Ange en följd av intressen 1 till 15, max 10 st. Avsluta med 0: ") ;

Open(Source, In_File, "REG.msdos.BIN") ;
Create(Target, Out_File, "resultat.txt") ;

while not End_Of_File(Source) loop
 
  Read(Source, Post) ;
  Put_line(Target, Post.Namn) ;
  
end loop ;

  Close(Source) ;


end laboration6 ;