Erro

PESSOAL VEJAM O QUE TEM DE ERRADO!

var

s : string;

begin

InputBox('Senha','Digite uma senha!','');

s:=InputBox('Senha','Digite uma senha!','');

begin

while (s <> 'user') do

begin

while (s <> 'user') do

begin

while (s <> 'user') do

Application.terminate

end

end;