function sort(a:integer;b:integer;c:integer):string;实现如下：function TForm1.sort(a, b, c: integer): string;var d:array[0..2] of integer;temp,one,two,three,f:integer;begin // 取得a,b,c三个数的最大值，存入one中 temp:=max(a,b);one:=max(temp,c);//取得三个数的...