はい、どうぞ

procedure trans( var dt: array of double ;n:integer);
　procedure swap(i,j:integer);
　var w: double;
　　begin
　　　w:=dt[n*i+j];
　　　dt[n*i+j]:=dt[n*j+i];
　　　dt[n*j+i]:=w;
　　end;
var i,j:integer;
begin
　for i:=1 to n-1 do
　for j:=i to n-1 do swap(i,j);
end;