Реализации иерархической зависимости между объектами (Турбо паскаль)

[EDK]

Программа реализации иерархической зависимости между объектами и применение объявленных объектов:
Человек, ученик, педагог, директор. Вычислить их доходы.
Вводить отработаное время педагога, и вычислить его зарплату,
ввести оценки студента и вычислить будет или нет у него стипендия
Код код иерархической зависимости без вычислений:

uses crt;

type
Human=object
 name:string;
 profit:real;
 procedure input(var na:string; var pro:real);
 procedure output(na:string; pro:real);
 end;

pupil=object (human)
 end;

teacher=object (human)
 end;

director=object (human)
 end;

procedure human.input(var na:string; var pro:real);
begin
write('Vvedite imya: ');
readln(na);
write('Vvedite dohod :');
readln(pro);
end;

procedure human.output(na:string; pro:real);
begin
writeln;
writeln('U ',na,' sleduischiy dohod: ',pro:4:2);
end;

var s1: pupil;
    s2: teacher;
    s3: director;

begin
clrscr;
s1.input(s1.name,s1.profit);
s2.input(s2.name,s2.profit);
s3.input(s3.name,s3.profit);
s1.output(s1.name,s1.profit);
s2.output(s2.name,s2.profit);
s3.output(s3.name,s3.profit);
readkey;
end.

Покажите как переделать, кто знает.
Заранее спасибо.