Não consigo deixar o programa repetir o cadastro - Pascal

[rami7]

Quero fazer com que o programa faça outro cadastro caso o usuário queira, e quero que ele feche caso o usuário escolha fechar também.

Já tentei de vários modos, mas só da erro de UNTIL não esperado

Program Pzim ; VarProva,Corrida,Natacao,Barra:Integer;Nome,Sexo:Char;Aprovado:Boolean;opcao:String; BeginRepeat Aprovado:=TRUE; //-------------------------NOME------------------------------- Writeln('Qual o seu nome: ');Readln(Nome);clrscr;//--------------------------SEXO------------------------------Writeln('"M" para Masculino ou "F" para Feminino: ');Readln(Sexo);clrscr;//---------------------MÉDIA DA PROVA--------------------------------Writeln('Qual foi a sua media na prova: ');Readln(Prova);clrscr;If (Prova>8) AND (Prova<=10) Then//--------------------------CORRIDA------------------------------Begin   Writeln('Quantos Km voce correu: ');Readln(Corrida);clrscr;If (Sexo='m') AND (Corrida>=100) OR (Sexo='f') AND (Corrida>=50) Then //-------------------------NATAÇÃO-------------------------------BeginWriteln('Quantos Km voce nadou: ');Readln(Natacao);clrscr;If (Sexo='m') AND (Natacao>=10) OR (Sexo='f') AND (Natacao>=10) Then//---------------------------BARRA-----------------------------Begin BeginWriteln('Quantas barras vc fez: ');Readln(Barra);clrscr;If (Sexo='m') AND (Barra>=1) OR (Sexo='m') AND (Barra>=1) Then textcolor(YELLOW);Writeln('Voce foi aprovado em todas as etapas. Parabens!'); //----------------------FECHAR OU REINICIAR----------------------------------    repeat      write('Introduzir um novo candidato? (S/N) ');      readln(opcao);      opcao := UpCase(opcao);  // coloca em maiúscula   until (opcao = 'S') or (opcao = 'N');  // controla o input, o utilizador não pode inserir mais nada se não "S" ou "N".until opcao = 'N';  // se "N", então pára e não regista mais nada. end;end;end;end;End.