[s0Creator]

можно так (если не сильно просто)

Код:

  Procedure  Sort_Array( Var Mas:Tdar);
   var
      i:integer;
      r:Tturi;
      chan:boolean;
   Begin
     // если по быстрому написать и грубо
     // правда несовсем понял про прямую вставку
     chan := true;
     while chan do
     begin
     chan := false;
       for i := 0 to high(Mas) - 1 do
       begin
         if Mas[i].Country > Mas[i+1].Country then
         begin
           r := Mas[i];
           Mas[i] := Mas[i+1];
           Mas[i+1] := r;
           chan := true;
         end;
       end;
     end;
   End;