В чем ошибка? - Pascal - Ответ 956815

Program Alcohol;
 Uses crt;
 Var  napitok, let, m, e: Byte;
      V, d, k: real;
      cap: char;
  Begin
   Clrscr;
   Writeln('Специально для вас.');
   Readln;
   Clrscr;
   Writeln('Укажите ваш возраст');
   Readln(let);
   If let<18 then
              Begin
               Clrscr;
               Writeln('Сипловато будет пить в таком возрасте.');
               Writeln('Но...Может вы капитан личинка или капитан пожарник???');
               Writeln('y-да/n-*нет');
               Readln(Cap);
               Clrscr;
               If cap='n' then Writeln('Туго вам придется...');
              End;
                Begin
                Clrscr;
                Writeln('Сообщите массу тела');
                Readln(m);
                Clrscr;
                Writeln('В соответствии со следующими показателями введите уровень мастерства');
                Writeln;
                Writeln('Новичок - 0.25');
                Writeln('Любитель - 0.5');
                Writeln('Проффи - 0.75');
                Writeln('Гуру - 1');
                Readln(k);
                Clrscr;
                Writeln('Желаемый эффект?');
                Writeln;
                Writeln('Расслабиться - 1');
                Writeln('Напиться - 2');
                Writeln('Напиться до поросячего визга - 3');
                Readln(e);
                Clrscr;
                Writeln('Танцевать будем?');
                Writeln;
                Writeln('Нет уж, увольте... - 0.25');
                Writeln('Будем - 0.75');
                Writeln('Будем, да под частушки! - 1');
                Readln(d);
   Clrscr;
   Writeln('Чего пить изволите?');
   Writeln;
   Writeln('1 - GreatMendeleevVodka = 40.000 %');
   Writeln('2 - UnstableVodka = 39.975 %');
   Writeln('3 - H2O = 0.0000000000 %');
   Writeln('4 - 4a4a = 75.65536 %');
   Writeln('5 - Rassol = -16.384 %');
   Writeln('6 - Spirt = 95.99 %');
   Writeln('7 - Dryspirt = 99.99 %');
   Writeln('8 - Piv4anskogo = 4.3534 %');
   Writeln('9 - Samgene = 66.666 %');
   Readln(napitok);
    Case napitok of
     1: Begin
         V:=(m*k*e*d*100)/12;
         Clrscr;
         Writeln('Вам надо выпить ',V:7:3,' мл выбранного вами напитка.');
        End;
     2: Begin
         V:=(m*k*e*d*100)/13;
         Clrscr;
         Writeln('Вам надо выпить ',V:7:3,' мл выбранного вами напитка.');
        End;
     3: Begin
         V:=(m*k*e*d*100)/0.000000000000001;
         Clrscr;
         Writeln('Вам надо выпить ',V:7:3,' мл выбранного вами напитка.');
        End;
     4: Begin
         V:=(m*k*e*d*100)/30;
         Clrscr;
         Writeln('Вам надо выпить ',V:7:3,' мл выбранного вами напитка.');
        End;
     5: Begin
         V:=(m*k*e*d*100)/0.000001;
         Clrscr;
         Writeln('Вам надо выпить ',V:7:3,' мл выбранного вами напитка.');
        End;
     6: Begin
         V:=(m*k*e*d*100)/35;
         Clrscr;
         Writeln('Вам надо выпить ',V:7:3,' мл выбранного вами напитка.');
        End;
     7: Begin
         V:=(m*k*e*d*100)/90;
         Clrscr;
         Writeln('Вам надо выпить ',V:7:3,' мл выбранного вами напитка.');
        End;
     8: Begin
         V:=(m*k*e*d*100)/3;
         Clrscr;
         Writeln('Вам надо выпить ',V:7:3,' мл выбранного вами напитка.');
        End;
     9: Begin
         V:=(m*k*e*d*100)/25;
         Clrscr;
         Writeln('Вам надо выпить ',V:7:3,' мл выбранного вами напитка.');
         End;
     Else Writeln('Введите верный код напитка!');
     End;
                End;
    Clrscr;
    Writeln('Нажмите Enter, чтобы выйти');
    Readln
   End.