Как передать в функцию переменную любого типа?, как сделать что-то типа readln или writeln, передавая в параметре любу Опции

[kramolnic]

Возникла необходимость написать процедурку, которая будет выводить текст с форматированием относительно окна (по центру, справа, слева и т.п...)... Стандартная процедура ReadLn или WriteLn да и куча им подобных может принимать в качестве параметра переменную любого типа и работать с ней.. можно распечатать и String и Integer... а как объявить свою процедуру, чтобы она могла делать так же?? то есть как не привязывать параметр к определенному типу??
P.S. параметр должен передаваться по ссылке (со словом var).

[volvo]

на самом деле было больше интересно, как это в паскале реализуется такая вещь.

На самом то деле в Паскале такое реализуется ГОРАЗДО проще, чем ты можешь себе предстаить, только вот почему-то у многих выработался рефлекс: как только видят в программе слово Object - дальше программа не читается... А зря... Смотри:

type
  pT = ^T;
  T = object
    constructor create;
    procedure Print; virtual;
  end;

  pTstring = ^Tstring;
  Tstring = object(T)
    data: string;
    constructor create(s: string);
    procedure Print; virtual;
  end;

  pTinteger = ^Tinteger;
  Tinteger = object(T)
    data: integer;
    constructor create(i: integer);
    procedure Print; virtual;
  end;

constructor T.create;
begin end;
procedure T.print;
begin end;

constructor Tstring.create(s: string);
begin
  inherited Create;
  data := s;
end;
procedure Tstring.Print;
begin
  writeln('<' + data + '>')
end;

constructor Tinteger.create(i: integer);
begin
  inherited Create;
  data := i;
end;
procedure Tinteger.Print;
begin
  writeln(data:10);
end;

procedure WriteCenter(Obj: pT);
begin
  Obj^.Print;
end;

begin
  WriteCenter(new(pTinteger, create(2345)));
  writeln('');
  WriteCenter(new(pTstring, create('This is my text')));
end.

Что, ЭТО не Паскаль? Почему же вы выбрасываете из языка ее самую мощную часть?