Задача по Обэктам! Опции

[Костя]

Решыте за 0.50$ задачу плачу на WebMoney!

[trminator]

а может, там задача плана

Код

type
    PHelloWorld = ^THelloWorld;
    THelloWorld = object
    private
        s: string[12];
    public
        procedure SayHello;
        constructor create;
    end;

procedure THelloWorld. SayHello;
begin writeLn(s) end;

constructor THelloWorld.create;
begin s:='Hello, World!' end;

var hello: PHelloWorld;
begin
   new(hello, create);
   hello^.SayHello;
   dispose(hello)
end.

;D