重复，直到

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. 上，等待用户类型，回显它并在无限循环中再次等待输入 - 直到用户输入空字符串。