Где-то ошибка

Program q;
Uses Crt;
Var
dol: real; // Доллары
dol_: real; // Курс Доллара
uk: real; // Гривны
uk_: real; // Курс Гривны
evro: real; // Евро
evro_: real; // Курс Евро
bel: real; // Белорусский Рубль
bel_: real; // Курс Белорусского Рубля
zimb: real; // Квача
zimb_: real; // Курс Квачи
n: Byte;
 
procedure Доллары;
begin
ClrScr;
writeln ('Вы выбрали: Доллары ');
  writeln ('Введите сумму в рублях: ');
  read (dol);
  // Изменить курс Доллара (ниже)
  dol_:=dol/62;
  // Данный курс
  writeln ('По настоящему курсу ', dol,' рублей - это ', dol_,' долларов ');
  writeln ('Спасибо за использование данной программы! ');
  writeln ('Для повторного использования перезапустите программу! ');
end;
 
// ЕВРО
procedure Евро;
begin
ClrScr;
writeln ('Вы выбрали: Евро ');
  writeln ('Введите сумму в рублях: ');
  read (evro);
  // Изменить курс Евро (ниже):
  evro_:=evro/75;
  // Данный курс
  writeln ('По настоящему курсу ', evro,' рублей - это ', evro_,' евро ');
  writeln ('Спасибо за использование данной программы! ');
  writeln ('Для повторного использования перезапустите программу! ');
end;
 
// ГРИВНЫ
procedure Гривны;
begin
ClrScr;
writeln ('Вы выбрали: Гривны ');
  writeln ('Введите сумму в рублях: ');
  read (uk);
  // Изменить курс Гривны (ниже):
  uk_:=uk/2.4;
  // Данный курс
  writeln ('По настоящему курсу ', uk,' рублей - это ', uk_,' гривн ');
  writeln ('Спасибо за использование данной программы! ');
  writeln ('Для повторного использования перезапустите программу! ');
end;
 
// БЕЛОРУССКИЙРУБ
procedure Белорусскийрубль;
begin
ClrScr;
writeln ('Вы выбрали: Белорусский Рубль ');
  writeln ('Введите сумму в рублях: ');
  read (bel);
  // Изменить курс Белорусского Рубля (ниже):
  bel_:=bel/24;
  // Данный курс
  writeln ('По настоящему курсу ', bel,' рублей - это ', bel_,' белорусских рублей ');
  writeln ('Спасибо за использование данной программы! ');
  writeln ('Для повторного использования перезапустите программу! ');
end;
 
// ZimbaKwach 
procedure имбаквач;       
begin
ClrScr;
writeln ('Вы выбрали: Замбийскую квачу ');
  writeln ('Введите сумму в рублях: ');
  read (zimb);
  // Изменить курс Зимбы (ниже)
  zimb_:=zimb*6;
  // Данный курс
  writeln ('По настоящему курсу ', zimb,' рублей - это ', zimb_,' Замбийской квачи ');
  writeln ('Спасибо за использование данной программы! ');
  writeln ('Для повторного использования перезапустите программу! ');
end;
 
// СПИСОК ВАЛЮТ      
procedure Полныйсписок;    
begin
  ClrScr;
  writeln ('Полный список валют: ');
  writeln ('1. Доллары (USD) '); 
  writeln ('2. Евро (EUR) ');
  writeln ('3. Гривны (UAH) ');
  writeln ('4. Белорусские рубли (BYN) ');
  writeln (' -=- ');
  writeln ('-. Замбийская квача (ZMW) ');
  writeln ('-. Аргентинское песо (ARS) ');
  writeln ('-. Бразийский реал (BRL) ');
  writeln ('-. Афгани (ANF) ');
  writeln ('-. Китайский юань (CNY) ');
  writeln (' ');
  writeln ('Пожалуйста запомните номер валюты и перезапустите приложение. ');
  writeln ('После введите нужный номер! ');
  writeln ('Спасибо! ');
end;
 
// СПИСОК КРИПТЫ
procedure Криптовалюты;
begin
  ClrScr;
  writeln ('Список популярных Криптовалют');
  writeln ('8. Биткоины (BTC) ');
  writeln ('9. Dash (DASH)');
  writeln ('10. Dogecoin (Doge) ');
  writeln ('11. Лайткоин (LTC) ');
  writeln ('12. Ethereum (ETH) ');
  writeln (' ');
  writeln ('Пожалуйста запомните номер валюты и перезапустите приложение. ');
  writeln ('После введите нужный номер! ');
  writeln ('Спасибо! ');
end;
 
// ИНФОРМАЦИЯ о ПРОГЕ
procedure Инфа;
begin
  ClrScr;
  writeln ('Программа написана с нуля');
  writeln ('"Говнокод", да? ');
  writeln (' ');
  writeln ('(c) BoomFX - 2018 ');
  writeln ('email: [email]kostyarudnev2@rambler.ru[/email] ');
  writeln ('vk: [url]https://vk.com/pulseneon[/url] ');
 
begin
  repeat
  ClrScr;
  writeln ('Привет! Это "Валюта 2.0" ');
  writeln ('Последнее обновление курса: 02.05.2018. ');
  writeln ('Переводим Российский Рубль в...');
  writeln ('1. Доллары (USD) ');
  writeln ('2. Евро (EUR) ');
  writeln ('3. Гривны (UAH) ');
  writeln ('4. Белорусские рубли (BYN) ');
  writeln (' ');
  writeln ('Дополнительно: ');
  writeln (' ');
  writeln ('5. Полный список валют ');
  writeln ('6. Список Криптовалют');
  writeln ('7. Информация о программе ');
  writeln ('Введите число: ');
  read (n);
  // НОМЕРА ПРОЦеДУР
  Case n of
    1: Доллары;
    2: Евро;
    3: Гривны;
    4: Белорусскийрубль;
    5: Полныйсписок;
    6: Криптовалюты;
    7: Инфа;
    8: имбаквач;
  end;
  until n <> 0;
end.