Вернуться обратно к меню после выполнения одной из 3 программ - Turbo Pascal

PROGRAM konvert;
 
USES
Crt;
 
VAR
  n: Byte;
  A,B,C,D,E: real; // Переменные для первого, второго и третьего конвертора
  
procedure proc1; // Перевести дюймы в сантиметры...
begin
WriteLn('Введите дюймы');
readLN (A);
C:=2.54;
B:=A*C;
WriteLn (B:4:2, 'см');
end;
 
procedure proc2; // Перевести фунты в килограммы...
begin
WriteLn('Введите фунты');
readLN (A);
C:=2.2;
B:=A/C;
WriteLn (B:4:2, 'кг');
end;
 
procedure proc3; // Перевести фаренгейты в градусы...
begin
WriteLn('Введите фаренгейты');
readLN (A);
C:=32;
B:=(A-C)/2;
D:=B/10;
E:=B/D;
WriteLn (D, 'градусов цельсия');
end;
 
begin
  repeat
  ClrScr;
  WriteLn('1. Перевести дюймы в сантиметры...');
  WriteLn('2. Перевести фунты в килограммы...');
  WriteLn('3. Перевести фаренгейты в градусы...');
  WriteLn('0. Выход');
  Write('Выберите конвертер: ');
  ReadLn(n);
  Case n of
    1: proc1;
    2: proc2;
    3: proc3;
  end;
  until n <> 0;
end.