Exemplo com while

Program certidao;
 var
 nome,dia,hospital, cidade, pai,mae ,testemunhas :string;
 opc:integer;  
 begin  
   writeln('Digite 1 pra fazer CADASTRO ,2 para sair');readln(opc);
   While(opc=1) Do
   Begin
   writeln('                                    ');
   writeln('                                    ');
   writeln('               Certidão de Narcimento              ');
   writeln('                                    ');
   writeln('Digite seu nome:');read(nome);
   writeln('Narcido no dia: '); readln(Dia);
   writeln('Narcido no Hospital:');readln(hospital);
   writeln('Na cidade de:');readln(cidade);
   writeln('Filho de: Dona ');readln(mae);
   writeln('Senhor ');readln(pai);
   writeln(' Foram testemunhas: '); readln(testemunhas);
   writeln('  ');
   writeln('  ');
                                         writeln('                     CERTIDÃO DE NARCIMENTO ');
                                 writeln('                             N-12.635        ');
   writeln('  ');
   writeln('  ');
   writeln('Eu, Roberto do Santos viera, Oficial de Registro Civil, em virtude da Lei, ect.');
   writeln('Certifico do Registro de Narcimento, foi feito o assento de ',nome , '.' );
   writeln('Narcido no dia ',dia ,'.');
   writeln('No Hospital ',hospital, ',' );
   writeln('em ',cidade,',');
   writeln('Filho de ' ,pai, ' e '); 
   writeln(' dona ',mae ,',');
   writeln('foram testemunhas: ' ,testemunhas, '.');
  
  
  
   writeln('  ');
   writeln('                        O referido é verdade e dou fé               ');
   writeln('                        Sanharó,   de             de       .        ');
  
   writeln('  ');
   writeln('  ');
  
  
   writeln('                         Oficial                                     ');
  
   // aki é a opção para novos cadastros
   writeln('                                    ');
   writeln('                                    ');
   writeln('                                    ');
   writeln('                                    ');
   writeln('                                    ');
   writeln('                                    ');
   writeln(' Digite 1 para NOVO CADASTRO , 2 sair ');read(opc);
   If (opc=2) Then
   Begin
   writeln('                                    ');
 
   writeln('                  Obrigado pelo uso de mosso software');
   writeln('                      agradecimentos -  Adson Renato -                 ');
  End;

  
 end;
 End.