Паркан, самое простое -- поставить метку и сделать безусловный переход по условию. например:
Код:
getstart:
<код, где вызываются процедуры ввода точек>
readln('хотите продолжить? 1-да, 2-нет', answer);
if answer = 1 then
goto getstart
else
<делаем что то другое, перед выходом из программы>
: //if answer = 1
