function sep(s:string):array s1;

var

s1:array [1..40] of string;

begin

.

.

.

result:=s1;

end;

چجوری میشه خروجی تابع رو از نوع array تعریف کرد