program fjf864i1;

uses fjf864m;

type
  ooo = object (o)
    procedure uu;
  end;

procedure ooo.uu;

  procedure m;

    procedure t;
    begin
      a := c
    end;

  begin
    r;
    t;
    c := b[2]
  end;

begin
  b := 'YO';
  e := 'KK';
  p;
  m;
  t;
  if False then q
end;

var
  v: ooo;

begin
  v.uu
end.
