Exemplo de Repeat

Program Pzim ;
var
nome,sobrenome:string;
ano,dia,mes,esc:integer;
 Begin
      repeat
      writeln('Insira seu nome');
      Readln(nome);
      writeln('Insira seu Sobrenome');
      readln(sobrenome);
      writeln('Insira o dia de nascimento');
      readln(dia);
      writeln('Insira a mes');
      readln(mes);
      Writeln('Digite o ano de nascimento');
      readln(ano);
      writeln('Nome: ',nome,' ' ,sobrenome);
     writeln('Data de Nascimento ',dia,'/', mes,'/', ano);
      writeln('1-Novo ou 2-Sair');
      readln(esc);
      until (esc=2);
 End.