[roman]

Código Delphi [-]
var
  Linea: String;

Linea := '';
for w2:=1 to largo do  //largo es la longitud del arreglo que es 100
begin
  Linea := Linea + arreglo1[w2];
end;

Memo1.lines.Add(Linea);

// Saludos