Pascal Tri fusion en pascal

procedure TRFusC ({R} n, i, j: integer; {M} var t : TReleve);
		Var t2: TReleve;
		d,m,k,x,y: integer;

begin
     d:=n;
     m:=(i+1);
	 k:=j;

     while ( (d<=i) and (k<=n)) do
		begin
            if (t[d].tempMax<T[m].tempMax) then
				begin
                        t2[k]:=t[d];
                        d:=d+1;
                end
            else
                begin
                    t2[k]:=t[m];
                    m:=m+1;
				end;
            k:=k+1;
		end;
     if (d>i) then
		begin
            for x:=m to j do
				begin
                    t2[k]:=t[x] ;
					k:=k+1  ;
				end;
        end;
     if (m>j) then
		begin
              for x:=d to i do
				begin
                      t2[k]:=t[x] ;
                      k:=k+1;
                end;
		end;
    for y:=j to n do
		begin
			t[y]:=t2[y];
		end;
 
end;
 
procedure TRTriFusC ({R} n : integer; {M} var t : TReleve);
	var p,k:integer;

  begin
	
	p := 1;
	while p < n do
		begin
			k := 1;
			while k+p < n do
				begin
					TRFusC(k, k+p-1, MinInteger(k+2*p-1, n), t);
					k := k+2*p
				end;
			p := 2*p
		end;
  end;

 TReleve = array[1..366] of Releve;

type Releve = 
                              record
            annee : integer ;
            mois : 1..12;
            jour : 1..31;
            tempMax : real ;
            tempMin : real ;
            precipitation : real ;
            ensoleillement : real ;
  end;