REPEAT UNTIL.

Vamos agora a estrutura de repetição REPEAT UNTIL que quer dizer repita até
vamos ao programa:

Program Pzim ;
var
nome:string;
idade,op:integer;
 Begin
      repeat
      writeln('Digite seu nome');
      Readln(nome);
      Writeln('Digite sua idade');
      readln(idade);
      writeln('1-Novo ou 2-Sair');
      readln(op);
      until (op=2);
 End.

Explicação:
1-Declarei as variáveis, NOME, IDADE, e OP.
2-Coloquei o REPEAT de onde ele vai começar a repitir.
3-Pedi o nome, li o nome, pedi a idade, li a idade.
4-E perguntei se ele queria 1 para novos dados ou 2 para sair.
5-Coloquei o UNTIL que quer dizer onde ele vai parar de repetir e OP igual a 2 para que saia da repetição.
6-Se digitar 1 ele repete as perguntas anteriores até que para sair voce digite o número 2.