>>35
> procedure trans( var dt: array of double ;n:integer);

なんか違わないか?