Как правильно записать массив из строк в одну строку? - Free Pascal

Как правильно записать массив из строк в одну строку? Потому что вместо этого у меня выводит много непонятных символов (см. скрин).

for i:=1 to 10 do 
    s_rez:=s_rez+s_a[i];
    write(s_rez);
{s_rez:string;
s_a:array [1..maxsize] of string;
maxsize=50;}

В строке массива максимум два елемента.

Листинг программы

s_rez:=''

Объяснение кода листинга программы

Объявляется переменная s_rez типа строка
Инициализируется пустой строкой ''
Запускается цикл, который будет выполняться для каждого элемента массива
Внутри цикла к переменной s_rez добавляется значение текущего элемента массива, предварительно обработанное функцией EncodeString
После выполнения цикла, в переменной s_rez будет содержаться результат - массив строк, записанный в одну строку