label
  jumpto;
begin
  ...
jumpto:
  some statement;
  ...
  goto jumpto;
  ...
end;