Writeln/Write ставит пробелы перед строкой

[Ryumka]

Здравствуйте.
Есть одномерный массив, рассчитанный в программе. Задача состоит в том, чтобы сформировать текстовый файл из этого массива: каждый элемент в новой строчке. Файл формируется, элементы записываются, но перед каждым элементом ставится пробел. Помогите разобраться.

procedure TForm1.Button2Click(Sender: TObject);
var
f2 : TextFile;
i: Integer;
begin
if SaveDialog1.Execute then
begin
  AssignFile(f2,SaveDialog1.FileName+'.txt');
  ReWrite(f2);
  for i:=0 to (n-1) do
  begin
    Writeln(f2,S[i]);
  end;

 end
 else
 exit;

  CloseFile(f2);
  S:=nil;
end;

[Yurk@]

1. а есть увереность что в массиве именно правильные данные?
2. можно попробовать

Writeln(f2,Trim(S[i]));

[Ryumka]

Массив типа Double :
S: array of Double;

Объявляется вверху программы в private.
Спасибо за ответ, но Trim выдает ошибку. Не хочет работать с Double. Если только переводить в строковый тип. Будет ли это правильно?

При переводе в строковый тип и использовании команды Trim пробелы действительно исчезают. Спасибо! Но все это действительно странно...

[Stilet]

S:=nil;

Так лучше не делать. Пиши SetLength(s,0);

[Slym]

Writeln(f2,S[i]:1:2); форматируй