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

[kramolnic]

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

[volvo]

Извращение конечно еще то, но все-таки... (если уверен, что хочешь это видеть - нажми мышкой на спойлер, не открываю сразу, может у кого-то будут еще варианты)

Спойлер (Показать/Скрыть)

type
  pr = ^r;
  r = record
  case _type: integer of
    1: (var_int: integer);
    2: (var_float: real);
    3: (var_str: string);
  end;

function _integer(X: integer): pr;
var _result: pr;
begin
  _result := new(pr);
  _result^._type := 1;
  _result^.var_int := X;
  _integer := _result;
end;

function _float(var X: real): pr;
var _result: pr;
begin
  _result := new(pr);
  _result^._type := 2;
  _result^.var_float := X;
  _float := _result;
end;

function _string(var X: string): pr;
var _result: pr;
begin
  _result := new(pr);
  _result^._type := 3;
  _result^.var_str := X;
  _string := _result;
end;

procedure WriteCenter(X: pr);
begin
  case X^._type of
    1: writeln(X^.var_int:10);
    2: writeln(X^.var_float:10:5);
    3: writeln(X^.var_str:20);
  end;
  dispose(X);
end;

var
  k: integer;
  s: string;
begin
  writeln('before: ', memavail); { <--- Вот это ... }

  k:= 2345;
  s:= 'This is my text';
  WriteCenter(_integer(k));
  writeln('');
  WriteCenter(_string(s));

  writeln('after: ', memavail); { <--- ... и это - для проверки, что нет утечек памяти }
end.