Объекты: параметр-значение и параметр-переменная

type
    TPos=object
        ax,ay:integer;
        constructor Init(x,y:integer);
        function GetX:integer;
        function GetY:integer;
        procedure Print; virtual;
    end;
 
    TSym=object(TPos)
        r:char;
        constructor Init(x,y:integer;C:char);
        procedure Print;virtual;
    end;
 
    TStr=object(TPos)
        str:string;
        constructor Init(x,y:integer; S:string);
        procedure Print;virtual;
    end;
 
constructor TPos.Init(x,y:integer);
begin
    ax:=x; ay:=y;
end;
 
function TPos.GetX:integer;
begin
    GetX:=ax;
end;
 
function TPos.GetY:integer;
begin
    GetY:=aY;
end;
 
procedure TPos.Print;
begin
    writeln('haha');
end;
 
constructor TSym.Init(x,y:integer;C:char);
begin
    TPos.Init(x,y);
    r:=c;
end;
 
procedure TSym.Print;
begin
    writeln(r);
end;
 
constructor TStr.Init(x,y:integer; S:string);
begin
    TPos.Init(x,y);
    str:=s;
end;
 
procedure TStr.Print;
begin
    writeln(str);
end;
 
procedure PrintObj(var T:TPos);
begin
    T.Print;
end;
 
var
    C:TSym;
    S:TStr;
    a:char;
    hello:string;
begin
    readln(a);
    readln(hello);
    C.Init(1,1,a);
    S.Init(1,1,hello);
    PrintObj(C);
    PrintObj(S);
end.