продемонстрировать механизм полиморфизма на примере составления списка студентов группы и преподавателей колледжа. - Delphi - Ответ 4508858

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

var d:integer; i:integer; name:string; kaf:string;

type
TPerson=class(TObject)
fname:string;
function info: string; virtual;
end;

TStud=class(TPerson)
fgr:integer;
function info: string; override;
end;

TProf=class(TPerson)
fdep:string;
function info: string; override;
function get: string;
end;

var a:array[1..10] of TProf; b:array[1..10] of TStud;

function TPerson.info;
begin
result:='';
end;

function TStud.info;
begin
result:=name+' êóðñ '+IntTostr(fgr);
end;

function TProf.info;
begin
result:=name+'êàô.'+fdep;
end;

function TProf.get;
begin
writeln(result);
end;

begin
writeln('Êîãî áóäåì ñîçäàâàòü? 0 - ïðåïîäàâàòåëè, 1 ñòóäåíòû');
readln(d);
if d = 0 then
begin
for i:=1 to 2 do
begin
a[i]:= TProf.Create;
readln(name);
readln(kaf);
a[i].info();
end;
for i:=1 to 2 do
begin
a[i].get;
end;
end;
if d = 1 then
begin
for i:=1 to 2 do
begin
b[i]:= TStud.Create;
readln(name);
readln(kaf);
b[i].info();
end;
for i:=1 to 2 do
begin
b[i].get;
end;
end;
readln;
end.