Паскаль. Розгалудження.Скласти програму, яка да довдку про назву столиц (St) та

Const
  St: array[1..3] of string = ('Будапешт', 'Рим', 'Киев');
  Nas: array[1..3] of real = (9.9, 61.5, 44.3);
  Kr: array[1..3] of string = ('Венгрия', 'Италия', 'Украина');
  Сведения о численности народонаселенья приведены по данным ресурса
   CountryMeters по состоянию на 03.07.2014

var
  i: integer;

begin
  write('Введите 1-Венгрия, 2-Италия, 3-Украина -gt; ');
  readln(i);
  if i in [1..3] then
    writeln('Страна- ', Kr[i], ', столица- ', St[i], ', народонаселенье (млн.чел.)- ', Nas[i])
  else
    writeln('Неправильный ввод!')
end.

Тестовое решение:

Введите 1-Венгрия, 2-Италия, 3-Украина -gt; 2
Страна- Италия, столица- Рим, народонаселенье (млн.чел.)- 61.5