Классы (Delphi)

[Kreaman]

Помогите сделать лабораторную по классам.
Надо описать класс Human, который используется для хранения фамилии, года рождения человека, и содержит методы получения года рождения и конструктор. Опишите класс Student, который является дочерним для Human и используется для хранения курса и группы, в которой он обучается и содержит методы перевода на следующий курс и получения значения курса. Вызовите 3 метода (включая переопределенный конструктор для Human).

[Mixasik]

Human = class
	Surname : string;
	birth : TDate;
	Conctructor Create;
	function GetBirth : TDate;
End;
Student = class(Human)
	Cource : word;
	group : string;
	Constructor Create;
            Procedure NextCource;
	Function GetCource : word;
End;

Самый простой вариант.

[beso]

http://programmersforum.ru/showthrea...438#post197438

на етат вапросу не сможите памоч ребията ???