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

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

спасибо большое

Для начала вот программа с исправленными ошибками.А чтобы программа никогда не заканчивалась, можешь применить оператор goto (что не рекомендуется) или зациклить программу:repeat<ПРОГРАММА>until FALSE;