Re: need help with errors im getting

["ramesh" <ramesh.mudedla@gmail.com>]

----------------------------------------------------------
Student_pack.ads
----------------------------------------------------


with testing; use testing;
with Date_pack; use Date_pack;

package Student_pack is

type Majors is (ComputerScience, Math, Business, Physics, Biology,
Chemistry);
type Classify is (Freshman, Sophomore, Junior, Senior, GradStudent);

type Student is limited private;

--type Access_Person(obj: access Person'Class) is--- is new Person with
--record
--Major : majors;
--Classification: Classify;
--EntryDate: Date;
--end record;

task Studenttask is

entry Student(n: String20; dob: Date; s : Sex1; maj : Majors; cl :
Classify; ed : Date);
entry PrintName(name: Student_pack.Student);
entry PrintMajor(major: Student_pack.Student);
entry SetMajor(major: Student_pack.Student);
entry SetClassification(cl: Student_pack.Student);
entry PrintClassification(cl: Student_pack.Student);
entry PrintAll(s: Student_pack.Student);

end studenttask;

private

type Student is new person with

record
Major : Majors;
Classification: Classify;
EntryDate: Date;
end record;
--type C is tagged limited record A : AC (C'Access); B : BC (C'Access);
... -- other stuff if desired end record;
--type Student is tagged limited record Person :
Access_Student(Student'class); end record;


end Student_pack;

------------------------------------------------------
Student.Adb
_------------------------------------------------------


with testing; use testing;
with Date_pack; use Date_pack;

package Student_pack is

type Majors is (ComputerScience, Math, Business, Physics, Biology,
Chemistry);
type Classify is (Freshman, Sophomore, Junior, Senior, GradStudent);

type Student is limited private;

--type Access_Person(obj: access Person'Class) is--- is new Person with
--record
--Major : majors;
--Classification: Classify;
--EntryDate: Date;
--end record;

task Studenttask is

entry Student(n: String20; dob: Date; s : Sex1; maj : Majors; cl :
Classify; ed : Date);
entry PrintName(name: Student_pack.Student);
entry PrintMajor(major: Student_pack.Student);
entry SetMajor(major: Student_pack.Student);
entry SetClassification(cl: Student_pack.Student);
entry PrintClassification(cl: Student_pack.Student);
entry PrintAll(s: Student_pack.Student);

end studenttask;

private

type Student is new person with

record
Major : Majors;
Classification: Classify;
EntryDate: Date;
end record;
--type C is tagged limited record A : AC (C'Access); B : BC (C'Access);
... -- other stuff if desired end record;
--type Student is tagged limited record Person :
Access_Student(Student'class); end record;


end Student_pack;
----------------------------------------------------------------
Im getting errors in the body of Student_pack:

Its not allowing the inherited fields name, sex, BirthDAte, evn its not
recognising the student fields: major, classification, entrydate,

Please help me with this im really struggling, do i need to create a
pointer to point to store student and person  details.