pascal systen key

Program exercicio ;
var senha,senha2,senha3,key,key2,key3,key4,senha4:string;
Begin
         writeln('insira a senha');
         read(key);
         senha:=('1');
         senha2:=('2');
         senha3:=('3');
         senha4:=('4');
         if (key=senha) then
            begin
                writeln('Acesso permitido');
                writeln('----ESTAGIO2----');
                writeln('Digite a senha 2');
                read(key2);
                        if (key2=senha2) then
                        begin
                            writeln('Acesso permitido');
                            writeln('----ESTAGIO3----');
                            writeln('Digite a senha 3');
                            read(key3);
                                    if(key3=senha3) then
                                    begin
                                        writeln('Acesso permitido');
                                        writeln('----ESTAGIO3----');
                                        writeln('Digite a senha 4');
                                        read(key4);
                                        if(key4=senha4) then
                                        begin
                                            writeln('INFORMACOES CONFIDENCIAIS');
                                            writeln('ISSO É UM TESTE');
                                        end
                                        else
                                            writeln('Acesso negado');

                                    end
                                    else
                                        writeln('Acesso negado');


                           end
                           else
                            writeln('Acesso negado');



         end
         else
            writeln('Acesso negado');




End.