[Ghost]

The_naked
Плюс там юзается. Немножко дополню, как бы я это делал:

function arr2str (inp: array of string): string;
var
  i: integer;
  s: string;
begin
  s := '';
  for i := 1 to sizeof (inp) div sizeof (string) do begin
    if s <> '' then s := s + ' ';
    s := s + inp[i - 1];
  end;
  arr2str := s;
end;

var
  str: array [1..3] of string;

begin
  str[1] := 'qwerty';
  str[2] := 'asdf';
  str[3] := 'zx';
  writeln (arr2str (str));
end.

Можно отсюда выковырнуть функцию arr2str и юзать, где надо.