Сохранение матрицы в текстовый файл

(#-разделитель) вместо матрицы (3,3) {2 3 4}{1 5 8}{5 8 3} получаю это {2#3#4#1#5#8#5#8#3#} в один столбец помогите, пожалуйста, исправить это

    procedure TForm1.Button11Click(Sender: TObject);
    var
     f: TextFile;
     i, j: integer;
    begin
     if SaveDialog1.Execute then
       Begin
     Assignfile(f,SaveDialog1.FileName);
     Rewrite(f);
     for i := 0 to Stringgrid3.colcount - 1 do
       for j := 0 to Stringgrid3.rowcount - 1 do
         writeln(F, Stringgrid3.cells[j,i], '#');
     closefile(f);
    end;
    end;