Дана страна = (Австрия, Болгария, Греция, Россия, Италия, Германия); столица = *Вена, София, Афины, Москва, Рим, Берлин); По названию страны определить ее столицу — Pascal(Паскаль)

program lab1; 
uses crt; 
type  coutrty=(Avstriya, Bolgariya, Greciya, Russia,Italiya, Germaniya);
{второй тип в этом примере не используется, он нужен если по названию столицы
искать название страны
поскольку переменные перечислимого типа это просто счетчики 
и их нельзя ни читать, ни выводить то делаем строковые массивы названий}
const strana:array[0..5] of string[10]=('Avstriya','Bolgariya','Greciya',
                                       'Russia','Italiya','Germaniya');
      stolica:array[0..5] of string[10]=('Vena','Sofia','Afiny',
                                        'Moskva','Rim,','Berlin');
var str,stol:string[10];
    i:coutrty;
    k:byte;
begin
clrscr;
write('Strana -> ');
readln(str);
k:=0;
for i:=Avstriya to Germaniya do
if strana[ord(i)]=str then
 begin
  k:=1;
  write('Stolica -> ',stolica[ord(i)]);
 end;
if k=0 then write('Takoj strany net!');
readln
end.