задача ООП сложный полиморфизм на паскале

Определить классы и их иерархию, организовать механизм простого и сложного полиморфизма: Учебное заведение школа, Вуз, Университет, институт.

Написала как смогла, а преподша говрит что это не совсем то(..

program Lab3;
type TYZ = object {y4ebnoe zavedenie}
Tyz : longint;
name:longint;
procedure Show; virtual;
constructor Init;

end;

Shkola= object (TYZ)
kol_11klassov:integer; {klass shkola}
constructor Init;
end;

VYZ = object (TYZ)
Vyz : longint;
Kol_kafedr : integer;
constructor Init;
procedure Show;virtual;
end;

TYniver = object (VYZ) {Yniver}
Kol_prepodavatel : integer;

constructor Init;
end;


TInstitut = object (TYniver) {Institut}

constructor Init;
procedure Show; virtual;
end;

constructor VYZ.Init;
begin
kol_kafedr :=0;
Show;
end;

constructor TYZ.Init;
begin
Tyz :=0;
end;

procedure TYZ.Show;
begin
WriteLn('Procedure dlya y4!(show)');
end;




procedure VYZ.Show;
begin
WriteLn('Procedure VYZ(show)');
end;



constructor Shkola.Init;
begin
kol_11klassov:=0;
end;




constructor TYniver.Init;
begin
Kol_prepodavatel := 0;
end;

constructor TInstitut.Init;
begin
kol_kafedr := 0;
end;

procedure TInstitut.Show;
begin
{WriteLn('dannie dlya instituta'); }
end;

var Shkolaa:Shkola ; Yniver: TYniver;Institut : TInstitut;
n : integer;

begin
Shkolaa.Init;
Institut.Init;
Yniver.Init;

writeLn('==4islo y4awixsya v shkole:');
readln(Shkolaa.tyz);

WriteLn('4islo 11 klassov Shkolaa ');
ReadLn(Shkolaa.kol_11klassov);

writeln(' ==4islo y4awixsya v ynivere:');
readln(Yniver.tyz);

WriteLn('4islo prepodavatelei dlya Institut :');
ReadLn(Yniver.Kol_prepodavatel);
writeln(' ==4islo y4awixsya v instityte:');
readln(Institut.tyz);

WriteLn('4islo prepodavatelei dlya Yniversiteta:');
ReadLn(Institut.Kol_prepodavatel);

WriteLn('4islo kafedr v ynivere:');
ReadLn(Yniver.Kol_kafedr);
WriteLn('4islo kafedr v institute:');
ReadLn(Institut.Kol_kafedr);

WriteLn('===4islo 11kassov:',Shkolaa. kol_11klassov);
WriteLn('===Prepodavateli V ynivere: ',Yniver.Kol_prepodavatel);
WriteLn('===Prepodavateli V institute: ', Institut .Kol_prepodavatel);

WriteLn('==4islo Kafedr v Ynivere: ',Yniver.Kol_kafedr);
WriteLn('==4islo Kafedr v Institute: ',Institut.Kol_kafedr);


Shkolaa.Show;
Yniver.Show;
Institut.Show;


ReadLn;
end.