//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....