Как в паскале вернуться в начало программы при операторе case - Pascal ABC

Формулировка задачи:

Добрый день и с новым годом! У меня ещё с прошлого года остался вопрос как вернуться на действие назад или в самое начало программы

program ViSiC;
 
uses
  crt;
  label 1,2,3,4;
var
  v, f, g,en: char; 
begin
  TextBackGround(0);
  clrscr;
  writeln('Выбирите месяц (от 1 до 12)');
  write('Ваш выбор: ');  readln(v);
  case v of
    '1': 
      begin
       writeln('Январь');
       write('выберите день: ');
       readln(f);
      case f of
          '1': 
            begin
              writeln('первый день месяца');
            end;
          
          '2': 
            begin
            writeln('второй день месяца');
        end;
      end;
      end;
    '2': 
      begin
        writeln('Декабрь'); 
        write('Ваш выбор: '); readln(g);
        case g of
          '1': 
            begin
writeln('первый день месяца');
            end;
          '2':
            begin
             writeln('второй день месяца');
              
            end;
        end;
      end;
     end;
   writeln('Выйти из программы?');
    writeln('1-да');
   writeln('2-нет'); 
  writeln('Ваш выбор:');read(en);
end.

Решение задачи: «Как в паскале вернуться в начало программы при операторе case»

Листинг программы

repeat
  statement1;
  statement2
until en<>'2';

Объяснение кода листинга программы

В данном коде используется цикл repeat-until, который выполняет два действия:

Выполняет блок кода, начиная с statement1 и заканчивая statement2.
Проверяет условие en<>'2'. Если оно истинно, то цикл продолжается, если ложно - завершается. При этом значение переменной en меняется в процессе выполнения цикла. Если значение переменной равно '2', то цикл прекращается. Важно отметить, что данный код является лишь примером и может быть изменен в зависимости от конкретной задачи.