Console aplication y readln

[dec]

Hola,

Se me ocurre que a más de uno le puede parecer el bucle "while" de más arriba perfectamente sustituible por un bucle "repeat" (y ya no sustituible, pero más adecuado). A mí desde luego me parece que sí, así que el código quedaría como a continuación se ve:

Código Delphi [-]
 
 program consola;
 
 {$APPTYPE CONSOLE}
 
 uses
   SysUtils;
 
 var
   usuario: string = '';
 
 begin
   repeat
     Writeln('Escribe tu nombre y pulsa ENTER para salir');
     ReadLn(usuario);
   until (usuario = 'Pedro');
 end.