Вывод столицы по названию страны

rogram stran;
const
strana:array[1..6] of string=('Avstria','Bolgariya','Greciya', 'Italiya', 'Norvegiya', 'Franciya');
cap:array[1..6] of string=('Vena', 'Sofia', 'Afini', 'Rim', 'Oslo', 'Parij');
var st,st1:string;
i:integer;
begin
repeat
writeln('vvedite Stranu');
readln(st);
until st=strana;
for i:=1 to 6 do
if st=strana then st1:=cap;
writeln('Stolica: ',st1);
 
readln;
end.

Uses
 CRT;
const
 strana:array[1..6] of string=('Avstria','Bolgariya','Greciya', 'Italiya', 'Norvegiya', 'Franciya');
 cap:array[1..6] of string=   ('Vena',   'Sofia',    'Afini',   'Rim',     'Oslo',      'Parij');
var
 st:string;
 i:integer;
 t:boolean;
begin
t:=false;
repeat
 write('vvedite Stranu: ');
 readln(st);
for i:=1 to 6 do
 if st=strana[i] then
 begin
  writeln('Stolica: ',cap[i]);
  t:=true;
 end;
if t=false then
 writeln('Íå âåðíûé ââîä.Ïîâòîðèòå.');
until t;
readkey
end.

const
 strana:array[1..6] of string=('Avstria', 'Bolgariya', 'Greciya', 'Italiya', 'Norvegiya', 'Franciya');
 cap:array[1..6] of string=('Vena', 'Sofia', 'Afini', 'Rim', 'Oslo', 'Parij');
var
 bool:boolean;
 st:string;
 j:integer;
begin
bool:=false;
repeat
 write('vvedite Stranu: ');
 readln(st);
  for j:=1 to 6 do
   begin
    if st=strana[j] then
     begin
      writeln('Stolica: ',cap[j]);
      bool:=true;
     end;
     if bool=false then
      begin
       writeln('Neizvestnie dannie');
      end;
 until bool;
end.