Мне нужно составить блок-схему к программе.

Program PPN1_3;
uses
    crt;
const
     d=2;
     ES=-0.006;
     EI=-0.016;
     esmin=0;
     eimin=-0.006;
var
   Dmax,Dmin,TD,dma,dmi,Tdmin,Nmax,Nmin,TN,TP:real;
   mode,n:integer;
   otvet:char;
   graphdriver,graphmode:integer;
   x1,x2,y1,y2:integer;
begin
   textbackground(2);
   mode:=lastmode;
   repeat
   clrscr;
   gotoxy(20,5);
   textcolor(4);
   writeln('Меню:');
   textcolor(15);
   gotoxy(10,8);
   writeln('1. Просмотр программы: "Задача на вычисление допусков и посадок."');
   gotoxy(10,10);
   writeln('3. Выход из программы.');
   textcolor(3+blink);
   gotoxy(10,15);
   write('Введи номер пункта меню для продолжения: ');
   readln(n);
     case n of
          1:begin
                 textbackground(2);
                 clrscr;
                 textcolor(4);
                 gotoxy(25,2);
                 writeln('Задача на допуски и посадки.');
                 textcolor(15);
                 gotoxy(2,4);
                 writeln('Дано: 2 P7(-6;+6)/H6(4:-5)');
                 gotoxy(2,5);
                 writeln('      Посадка: с натягом');
                 gotoxy(2,6);
                 writeln('      Система: вал');
                 gotoxy(2,8);
                 writeln('Решение:');
                 gotoxy(4,10);
                 writeln('Номинальный размер отверстия и вала: d=2mm');
                 gotoxy(4,11);
                 writeln('Верхнее предельное отклонение отверстия: ES=-0.006mm');
                 gotoxy(4,12);
                 writeln('Нижнее предельное отклонение отверстия: EI=-0.016mm');
                 Dmax:=d+ES;
                 gotoxy(4,13);
                 writeln('Наибольший предельный размер отверстия: ',Dmax:3:3,'mm');
                 Dmin:=d+EI;
                 gotoxy(4,14);
                 writeln('Наименьший предельный размер отверстия: ',Dmin:3:3,'mm');
                 TD:=Dmax-Dmin;
                 gotoxy(4,15);
                 writeln('Допуск отверстия для вала: ',TD:3:3,'mm');
                 gotoxy(4,16);
                 writeln('Верхнее предельное отклонение вала: ',esmin,'mm');
                 gotoxy(4,17);
                 writeln('Нижнее предельное отклонение вала: ',eimin:3:3,'mm');
                 dma:=d+esmin;
                 gotoxy(4,18);
                 writeln('Наибольший предельный размер вала: ',dma:3:3,'mm');
                 dmi:=d+eimin;
                 gotoxy(4,19);
                 writeln('Наименьший предельный размер вала: ',dmi:3:3,'mm');
                 Tdmin:=dma-dmi;
                 gotoxy(4,20);
                 writeln('Допуск вала: ',Tdmin:3:3,'mm');
                 Nmax:=dma-Dmax;
                 Nmin:=dmi-Dmin;
                 TN:=Nmax-Nmin;
                 TP:=TD+Tdmin;
                 gotoxy(2,22);
                 writeln('Ответ: Допуск пасадки равен: ',TP:3:3,'mm');
                 textcolor(4+blink);
                 gotoxy(15,24);
                 writeln('Для выхода из программы нажмите любую клавишу....');
                 readkey;
          end;
      
          2:otvet:=#27
             else begin
                       gotoxy(10,18);
                       textcolor(4+blink);
                       write('В меню нет такого пункта.');
                       readkey;
                  end;
          end;
   until otvet=#27;
   textmode(mode);
end.