Получить список, в котором сначала российские путевки отсортированы в порядке возрастания стоимости, а потом зарубежные в порядке убывания стоимости

uses crt;
const n=5;
type rec=record
      namek,names:string;
      stp,std,sum:integer;
     end;
var x:array[1..n] of rec;
    i,ch:integer;
 
procedure Sort1;
var i,imin,j,k:integer;
    tmp:rec;
begin
for i:=1 to n-1 do
if x[i].names='Russia' then
 begin
  imin:=i;
  for j:=i+1 to n do
   if x[j].sum<x[imin].sum then
    imin:=j;
   if imin<>i then
    begin
     tmp:=x[i];
     x[i]:=x[imin];
     x[imin]:=tmp;
    end;
 end;
end;
 
procedure Sort2;
var i,imin,j,k:integer;
    tmp:rec;
begin
for i:=1 to n-1 do
if x[i].names='Other' then
 begin
  imin:=i;
  for j:=i+1 to n do
   if x[j].sum>x[imin].sum then
    imin:=j;
   if imin<>i then
    begin
     tmp:=x[i];
     x[i]:=x[imin];
     x[imin]:=tmp;
    end;
 end;
end;
 
begin
ClrScr;
for i:=1 to n do
 with x[i] do
  begin
   Write(' Name(kurort): ');
   Readln(namek);
   Write(' Name(country)(1-Russia,2-Other): ');
   Readln(ch);
   if ch=1 then
    names:='Russia'
   else
    names:='Other';
   Write(' St(put): ');
   Readln(stp);
   Write(' St(dor): ');
   Readln(std);
  end;
x[i].sum:=0;
for i:=1 to n do
 x[i].sum:=x[i].sum+x[i].std+x[i].stp;
Sort1;
Sort2;
Writeln('Table: ');
Writeln('-------------------------------------------------------------');
Writeln('||  Name(k)  |  Name(str)  |  St(put)  |  St(dor)  |  Sum  ||');
Writeln('-------------------------------------------------------------');
for i:=1 to n do
 if x[i].names='Russia' then
  begin
   Sort1;
   Writeln('||',x[i].namek:11,'|',x[i].names:13,'|',x[i].stp:11,
         '|',x[i].std:11,'|',x[i].sum:7,'||');
  end;
for i:=1 to n do
 if x[i].names='Other' then
  begin
   Sort2;
   Writeln('||',x[i].namek:11,'|',x[i].names:13,'|',x[i].stp:11,
         '|',x[i].std:11,'|',x[i].sum:7,'||');
  end;
Writeln('-------------------------------------------------------------');
Readln;
end.