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.