program demo; procedure Foo; begin end; procedure Bar; begin end; var c: integer; begin c := -8; repeat Foo; Bar; c += 1; until c = 0; end.