重複，直到

program repeat_test;

{$APPTYPE CONSOLE}

var s : string;
begin
  WriteLn( 'Type a words to echo. Enter an empty string to exit.' );
  repeat
    ReadLn( s );
    WriteLn( s );
  until s = '';
end.

這個簡短的例子列印在控制檯 Type a words to echo. Enter an empty string to exit. 上，等待使用者型別，回顯它並在無限迴圈中再次等待輸入 - 直到使用者輸入空字串。