Delphi语法中的循环WHILE..DO和REPEAT..UNTIL