Bug após compilar - Pascal

Estou fazendo meus primeiros aplicativos em Pascal. Construí um para calcular a distância entre dois pontos no plano, mas ao inserir o último valor o aplicativo fecha. Há algum erro? O código:

Program Distancia_de_Pontos;
var x1,x2,y1,y2,distancia: real;
begin       
 writeln('_____________________________________________________');
 writeln('Este aplicativo calcula a distância entre dois pontos');
 writeln('P  = (x , y ) e P  = (x , y  )');
 writeln(' 1     1   1           2   2');
 writeln('_____________________________________________________');
 writeln('Digite o valor de x :');
 writeln('                   1');
 writeln('_____________________________________________________');        
 readln(x1);
 writeln('_____________________________________________________');
 writeln('Digite o valor de y :');
 writeln('                   1');
 writeln('_____________________________________________________');
 read(y1);
 writeln('_____________________________________________________');
 writeln('Digite o valor de x :');
 writeln('                   2');
 writeln('_____________________________________________________');
 read(x2);
 writeln('_____________________________________________________');
 writeln('Digite o valor de y :');
 writeln('                   2');
 writeln('_____________________________________________________');
 read(y2);
 writeln('_____________________________________________________');
 distancia :=sqrt(sqr(x2-x1)+sqr(y2-y1));
 writeln('A distância entre (',x1,', ',y1,') e (',x2,', ',y2,') é: ',distancia);
 writeln('_____________________________________________________');
 writeln('A fórmula utilizada:');
 writeln('_____________________________________________________');
 writeln(' 2                  2             2');
 writeln('D        = (x  - x )  +  (y  - y ) ');
 writeln('  P , P      2    1        2    1  ');
 writeln('   1   2                           ');
 writeln('_____________________________________________________');
 end.

Obrigado pela atenção.

Percebia que antes ele calculava mas fechava antes que pudesse ver o resultado. Não precisei mudar o nome, apenas pus o uses crt; e o readkey;. Obrigado.

Observação:

Percebi também que, nos aplicativos DOS (.bat) é necessário exigir que se pressione uma tecla antes do end, com o comando pause.

[RESOLVIDO]