turbo pascal 是不能返回数组的。
但 delphi pascal 进行了扩展，可以返回数组，例如：
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
type
intarray=array[1..10] of integer;
var
a,b:intarray;
i,n:integer;
function returnar(a:intarray;n:integer):intarray;
var i,t:integer;
begin
for i:=1 to n div 2 do begin
t:=a[i]; a[i]:=a[n+1-i]; a[n+1-i]:=t;
end;
returnar:=a;
end;
begin
n:=10;
for i:=1 to n do a[i]:=i;
b:=returnar(a,10);
for i:=1 to n do write(b[i]:6);
readln;
end.
