//Crea un programa que pida al usuario su contraseña. Deberá terminar cuando
 //introduzca como contraseña la palabra "acceso", pero volvérsela a pedir
 //tantas veces como sea necesario.

Program while;

 var
   contrasena:char;
   acceso:boolean;


 begin
 acceso:=true;
 while acceso do
   begin
   Writeln('Introduzca su contrasenaa por favor:  ');
   Readln(contrasena);
   

   if (contrasena='acceso' )then
      acceso:=false;


   end;




 end.


Que es lo que estoy haciendo mal? o.o , porque si pongo acceso sigue pidiendo la contreña....
                                     

Si , gracias por responder. El problema principal es que la variable la puse en char y tenia que ponerla en string. Error de parte mia.

Saludos!

Hecho en falta una cosa:

while Acceso do


Mientras "accéso" igual a que? en todo caso : Mientras Acceso = true

También se puede ahorrar un if, utilizando una instrucción "OR" cuando se comprueva si PASS = ACCESO.

if (Pass = 'acceso') or (Pass = 'ACCESO')  then
  Acceso := false

Nada, solamente estos dos detalles.