while-puesto

program refuer(input, output);


VAR
   str: string(50);
   aux : boolean;
BEGIN

     aux := true;
     while (aux) do
     BEGIN
          write('Introduzca su puesto: ');
          readln(str);
          if (str = 'becario') then
             aux := false
          else
              writeln('Valor incorrecto');
    END;

     writeln('Pulse enter para finalizar...');
     readln;
END.