program fjf696d;

type
  a = object
    a: String (2);
    o: procedure (const b: a);
  end;

procedure p (const d: a);
begin
  WriteLn (d.a)
end;

var
  v, w: a;

begin
  v.a := 'XX';
  v.o := p;
  w.a := 'OK';
  w.o := nil;
  v.o (w)
end.
