Сортировка футбольных команд по рейтингу

unit jobu;
interface
type
fTeam=record
 name:string[20];
 rate:byte;
end;
mas=array[1..100]of fTeam;
 
procedure fIn(var a:mas; var n:byte);
procedure fOut(a:mas; n:byte);
implementation
 
procedure fIn(var a:mas; var n:byte);
var f:text; i:byte;
begin
assign(f,'input.txt');
reset(f);
readln(f,n);
for i:=1 to n do
begin
 readln(f,a[i].name);
 readln(f,a[i].rate);
end;
close(f);
end;
 
procedure sort(var a:mas; n:byte);
var i,j,min:byte; t:fTeam;
begin
for i:=1 to n-1 do
begin
 for j:=2 to n do
  if a[i].name>a[j].name then min:=j
  else if (a[i].name=a[j].name) and (a[i].rate>a[j].rate) then min:=j;
  t:=a[i];
  a[i]:=a[min];
  a[min]:=t;
  end;
  end;
 
procedure fOut(a:mas; n:byte);
var f:text; i:byte;
begin
sort(a,n);
assign(f,'output.txt');
rewrite(f);
for i:=1 to n do
 writeln(f,a[i].name,' ',a[i].rate);
close(f);
end;
end.

procedure sort(var a: mas; n: byte);
var i,j: byte;
     tmp: fTeam;
begin
for i:=n-1 downto 1 do
 for j:=1 to i do
  if a[j].rate > a[j+1].rate then 
   begin
   tmp:=a[j];
   a[j]:=a[j+1];
   a[j+1]:=tmp;
   end;
 
for i:=n-1 downto 1 do
 for j:=1 to i do
  if a[j].name > a[j+1].name then 
   begin
   tmp:=a[j];
   a[j]:=a[j+1];
   a[j+1]:=tmp;
   end;
end;