По введённому названию страны Европы будет выводить на экран название столицы

program zad1;
var a: byte;
begin
writeln('введте название страны');
readln(a);
case a of
Австрия:WriteLn('Вена');
Азербайджан:WriteLn('Баку');
Албания:WriteLn('Тирана');
Андорра:WriteLn('Андорра-Ла-Велья');
Белоруссия:WriteLn('Минск');
Бельгия:WriteLn('Брюссель');
Болгария:WriteLn('София');
Босния и Герцеговина:WriteLn('Сараево');
Ватикан:WriteLn('Ватикан');
Великобритания:WriteLn('Лондон');
Венгрия:WriteLn('Будапешт');
else
WriteLn('такой страны нет в нашем списке');
end.

program zad1;
const 
  state : array [1..11] of String = ('Австрия', 'Азербайджан', 'Албания', 'Андорра',
    'Белоруссия', 'Бельгия', 'Болгария', 'Босния и Герцеговина', 'Ватикан',
    'Великобритания', 'Венгрия');
  cap : array [1..11] of String = ('Вена', 'Баку', 'Тирана', 'Андорра-Ла-Велья',
    'Минск', 'Брюссель', 'София', 'Сараево', 'Ватикан', 'Лондон', 'Будапешт');
var
  a, i: byte;
  s: string; 
  f : boolean;
begin
  writeln('введте название страны');
  readln(s);
  f := false;
  for i := 1 to 11 do
  begin
    if s = state[i] then
    begin
      writeln(cap[i]);
      f := true;
      break
    end
  end;
  if f = false then WriteLn('такой страны нет в нашем списке');
readln
end.

program zad1;
var a: string;
begin
writeln('введте название страны');
readln(a);
if a = 'Австрия' then WriteLn('Вена') else
  if a='Азербайджан' then WriteLn('Баку') else
    if a='Албания' then WriteLn('Тирана') else
      if a='Андорра' then WriteLn('Андорра-Ла-Велья') else
        if a= 'Белоруссия' then WriteLn('Минск') else
          if a='Бельгия' then WriteLn('Брюссель') else
            if a='Болгария' then WriteLn('София') else
              if a='Босния и Герцеговина' then WriteLn('Сараево') else
               if a='Ватикан' then WriteLn('Ватикан') else
                if a='Великобритания' then WriteLn('Лондон') else
                  if a='Венгрия' then WriteLn('Будапешт') else
WriteLn('такой страны нет в нашем списке');
readln
end.