//...
type dynmas=array of string;
//...
function strz(s1,s2:string):dynmas;
begin
setLength(result,2);
result[1]:=s1;
result[2]:=s2;
end;
//...