При указании страны показать ее столицу и флаг

uses GraphAbc, System.IO;
var
  s,f,d:string;
  p:Picture;
  dy,k,ds:integer;
  b:boolean;
  ch:char;
function rus2translit(ss:string):string;
const slrus='абвгдеёзиклмнопрстуфхцэы';
      sleng='abvgdeeziklmnoprstufhcey';
var
  i:integer;      
begin
  result:='';
  foreach c:char in LowerCase(ss).ToCharArray() do begin
    i:=pos(c,slrus);
    if i>0 then Result+=sleng[i] else 
    case c of
      'ж':Result+='zh';
      'й':Result+='y';
      'ч':Result+='ch';
      'ш':Result+='sh';
      'щ':Result+='sch';
      'ю':Result+='yu';
      'я':Result+='ya';
      'ъ','ь':;
      else Result+=c;
    end;
   end;
end;
begin
  Window.Maximize;
  p:=Picture.Create(320,240);
  repeat
    dy:=0;k:=0;
    SetBrushColor(clLime);
    FillRectangle(0,0,WindowWidth,WindowHeight);
    TextOut(10,dy,'Введите поисковый реквизит:');readln(s);
    ClearWindow;
    TextOut(10,10,'поисковый реквизит:'+s);    
    dy+=20;
    b:=false;
    foreach t:string in &File.ReadAllLines('data.txt',Encoding.GetEncoding(1251)) do 
      if pos(uppercase(s),uppercase(t))>0 then begin
        ds:=WindowHeight div 105-1;
        if (k>0) and (k mod ds=0) then begin
          TextOut(10,WindowHeight-50,'нажмите <Enter> для продолжения ...');
          readln;
          FillRectangle(0,0,WindowWidth,WindowHeight);          
          ClearWindow;
          dy:=0;
          TextOut(10,10,'поисковый реквизит:'+s);
          dy+=20;
         end; 
        k:=k+1; 
        dy:=dy+10;
        Rectangle(0,dy+5,WindowWidth,dy+110);
        b:=true;
        d:=t.Split(#9)[0];
        TextOut(WindowWidth div 2-textWidth('Cтрана:'+d) div 2,dy,'Cтрана: '+d);
        dy+=20;
        TextOut(10,dy,'Столица:'+t.Split(#9)[2]);
        f:=ExtractFileDir(paramstr(0))+'\IMG\'+rus2translit(d)+'.gif';
        if FileExists(f) then begin
          p.Load(f);
          dy+=50;
          p.Draw(10,dy);        
          dy+=30;
        end else TextOut(10,dy,'отсутствует изображение флага "'+f+'"');  
      end;
        if not b then TextOut(10,50,'Реквизит "'+s+'" не найден в файле data.txt');
        repeat
          TextOut(20,WindowHeight-50,'Продолжить [(Д)а/(Н)ет]:');
          readln(ch);
          ch:=uppercase(ch);
        until ch in ['Д','Н'];   
  until ch='Н';
  closewindow;
end.