Что необходимо сделать, для того чтобы программка не закрывалась, а продолжала

Что нужно сделать, для того чтобы программка не запиралась, а продолжала работать поновой?

program Kl;
var x:byte;
c,d,x1:real;
begin
repeat
writeln(' Введи C и D');
ReadLn(c,d);
if (c writeln('Ты не правильно ввёл число, т.к. C until (cgt;d);
x1:=c/d;
x:=trunc(x1);
writeln('x = ', x);
x:=x+64;
if xgt;91 then
writeln('Такой буквы нет')
else
WriteLn('Вот ответ');
writeln('The End');
readln;
end.