program xxxx;

procedure yyyy;

var self:word;

begin
end;

procedure self;

begin
end;

begin
end.