{$mode delphi}

label a;

begin
  goto a;
 a:
end.