repeat statement; ... statement; until boolean_expression;
The repeat ... until statement declares a loop. For further description see repeat Statement.
repeat is defined in ISO 7185 Pascal and supported by all known Pascal variants.
program RepeatDemo; var Number, Sum: Integer; begin WriteLn ('Black Jack for beginners.'); WriteLn ('You can choose your cards yourself. :-)'); Sum := 0; repeat Write ('Your card (number)? '); ReadLn (Number); Inc (Sum, Number); WriteLn ('You have ', Sum, '.') until Sum >= 21; if Sum = 21 then WriteLn ('You win!') else WriteLn ('You lose.') end.