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

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.

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

program Project1;
 
{$APPTYPE CONSOLE}
{$R *.res}
 
// uses
// crt;
 
var
  mesiac, den, en: byte;
 
begin
  // TextBackGround(0);
  // clrscr;
  repeat
    writeln('Выбирите месяц (от 1 до 12)');
    write('Ваш выбор: ');
    readln(mesiac);
    case mesiac of
      1:
        writeln('Январь');
      2:
        writeln('Декабрь'); // vrode dolzen bit Fevral
    end;
    write('выберите день: ');
    readln(den);
    case den of
      1:
        writeln('первый день месяца');
      2:
        writeln('второй день месяца');
    end;
    writeln('Выйти из программы?');
    writeln('1-да');
    writeln('2-нет');
    writeln('Ваш выбор:');
    read(en);
  until en <> 2;
 
end.

program ViSiC;
 
label checkIn;
 
function WdPresenceOfMonth(parameter: char): string;
begin
  case parameter of
    '1':
    WdPresenceOfMonth := 'Январь';
    '2':
    WdPresenceOfMonth := 'Февраль';
  end;
end;
 
function WdPresenceOfDay(parameter: char): string;
begin
  case parameter of
    '1':
    WdPresenceOfDay := 'Первый';
    '2':
    WdPresenceOfDay := 'Второй';
  end;
end;
 
procedure DM;
var
  NumberOfMonth: char;
  DayOfMonth: char;
begin
  Write('Выберите месяц (от 1 до 12). Ваш выбор: ');
  ReadLn(NumberOfMonth);
  Write(WdPresenceOfMonth(NumberOfMonth), '. ', 'Теперь выберите день: ');
  ReadLn(DayOfMonth);
  WriteLn(WdPresenceOfDay(DayOfMonth), ' ', 'день месяца.');
end;
 
function ExitCode: char;
var 
  ProgEndCode: char;
begin
  Write('Выйти из программы? 1-да, 2-нет. Ваш выбор: ');
  ReadLn(ProgEndCode);
  ExitCode := ProgEndCode;
end;  
 
var 
  ProgEndCode: char;
  
begin
  checkIn: DM;
  ProgEndCode:=ExitCode;
  case ProgEndCode of
  '1': 
    WriteLn('Выполнение программы завершено...');
  '2':
    goto checkIn;
  end;
end.