Developing.ru

В цикле найти номер страны в массиве Country, потом взять элемент массива Capital с таким же номером.
Тяжко в Паскале без ассоциативных массивов...

Type
Country = (Австрия, Болгария, Греция, Италия, Норвегия, Франция, Германия);
Capital = (Вена, София, Афины, Рим, Осло, Париж, Берлин);

Как сделать эту программу?
По названию страны (переменная типа Country) присвоить переменной типа Capital название столицы этой страны.
[code]Type
Country = (Австрия, Болгария, Греция, Италия, Норвегия, Франция, Германия);
Capital = (Вена, София, Афины, Рим, Осло, Париж, Берлин);[/code]