procedure CheckPromo;
var
  status : integer; //-1 : relegated; 0 : No move; 1 : promoted
  newrank: integer; //1: bronze 2: silver 3:gold 4:plat 5:diamond
  ranks: array [2..5] of integers;
begin
  ranks[2]:=ranksilver;
  ranks[3]:=rankgold;
  ranks[4]:=rankplat;
  ranks[5]:=rankdiamond;
  for i:= 5 downto 2 do
  begin
  if Global.saveendrank >= rank[i] then
  begin
    if Global.savestartrank <= rank[i] then
    begin
    status:= 1;
    newrank:= i;
    break;
    end
    else
    status:= 0;
    newrank:= i;
  end
  else
  begin
  if Global.saveendrank+threshold <= rank[i] then
  begin
    if Global.savestartrank >= rank[i] then
    begin
    status:= -1;
    newrank:= i-1;
    break;
    end
    else
    status:= 0;
    newrank:= i;
  end;
  end;
end;