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

[A_r_r_a_y]

Здраствуйте. Стыдно признаться, но не получается у меня сохранить массив вещественных чисел в файл.
Объявление

const
   n=6;
   m=3;
var
   f1: TextFile;
   G: array[0..m,0..n] of Real;
   i,j: integer;

далее идет заполнение массива, вывод его на экран (выводится нормально),
затем сохранение в файл

AssignFile(f1,'output');
Rewrite(f1);
for i:=0 to n-1 do
  begin
    for j:=0 to m-1 do
      write(f1,G[i,j]:10:4);
    writeln(f1);
  end;

В итоге в файл не записываются последние две строки массива.
Если вместо

write(f1,G[i,j]:10:4);

написать

 write(f1,G[i,j]:0:4);

то запишутся все элементы, но без отступов, что не есть хорошо.
Как решить эту проблему? Заранее спасибо.

[Grag]

Как я понял, работаешь с Дельфёй... Пишешь в текстовый файл значения типа REAL....

write(f1,FloatToStr(G[i,j])+'  ');

[A_r_r_a_y]

да, консольное приложение в дельфи,

write(f1,FloatToStr(G[i,j])+'  ');

ничего не изменилось, также последних строк не хватает, причем, если увеличивать или уменьшать отступ, то кол-во выводимых символов тоже увеличивается и уменьшается.
вот, на всякий случай весь код, может где-нибудь в другом месте налажал

program array_file;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  n=6;
  m=3;
var
  f,f1: TextFile;
  G: array[0..m,0..n] of Real;
  tmp: string;
  i,j: integer;
begin
  AssignFile(f,'in');//ассоциация файла
  Reset(f);//открытие файла
  {Чтение массива G из файла}
  for i:=0 to n-1 do
    begin
      for j:=0 to m-1 do
        Read(f,G[i,j]);
    end;
  CloseFile(f);//Закрываем файл
  {Вывод массива G}
  Writeln('=== source array: ===');
  for i:=0 to n-1 do
    begin
      for j:=0 to m-1 do
        Write(G[i,j]:10:4);
      Writeln;
    end;
  AssignFile(f1,'output');
  Rewrite(f1);
  for i:=0 to n-1 do
    begin
      for j:=0 to m-1 do
        write(f1,FloatToStr(G[i,j])+'  ');
      writeln(f1);
    end;
  readln;
end.

[Grag]

Опять чушь городишь... Открываешь текстовый файл, а заполняешь массив типа REAL....
А вообще лучше с текстом работать через Writeln/Readln, чтобы в строке содержалось одно значение массива... А еще лучше работать не с текстовым файлом, а типизированным f:file of real

Var
  Line:string;

  for i:=0 to n-1 do
    begin
      for j:=0 to m-1 do
        begin
          Read(f,Line]);
          Trim(Line);
          G[i,j]:=StrToFloat(Line)
        end 
    end;

[A_r_r_a_y]

Сообщение от Grag

Опять чушь городишь... Открываешь текстовый файл, а заполняешь массив типа REAL....
А вообще лучше с текстом работать через Writeln/Readln, чтобы в строке содержалось одно значение массива... А еще лучше работать не с текстовым файлом, а типизированным f:file of real

Var
  Line:string;

  for i:=0 to n-1 do
    begin
      for j:=0 to m-1 do
        begin
          Read(f,Line]);
          Trim(Line);
          G[i,j]:=StrToFloat(Line)
        end 
    end;

мне нужно именно с текстовым, заполнение массива из файла работает нормально.
Я что-то совсем не понимаю как может этот код

for i:=0 to n-1 do
    for j:=0 to m-1 do
      begin
        writeln(f1,FloatToStr(G[j,i]));
        writeln(FloatToStr(G[j,i]));
      end;

на экран выводить все элементы, а в файл не сохраняют два последних

[A_r_r_a_y]

В общем не стал я париться, сделал работу с файлами через TStringList
Grag, спасибо за помощь

[Grag]

Так ты сам то посмотри внимательно свой код!!! У тебя массив как объявлен??? Как G[0..m,0..n] of real. А выводишь ты в цикле как???
От i:=0 to N-1 и от j:=0 to M-1... Вот без единицы и теряются данные, да и кроме того нужно переставить местами N и M, а то перепутал столбцы и строки....

[Serge_Bliznykov]

От i:=0 to N-1 и от j:=0 to M-1... Вот без единицы и теряются данные, да и кроме того нужно переставить местами N и M, а то перепутал столбцы и строки....

Золотые слова!
+1

[A_r_r_a_y]

со столбцами и строками налажал, но там где

От i:=0 to N-1 и от j:=0 to M-1

дело не в этом, я и заполняю точно также, так что в худшем случае у меня по одной лишней строке и столбцу.
И как Вы думаете почему:

 for i:=0 to n do
    for j:=0 to m do
      begin
        writeln(f1,FloatToStr(G[i,j]));
        writeln(FloatToStr(G[i,j]));
      end;

Вывожу одно и тоже на экран и в файл, на экране все норм, а в файле не хватает элементов.

[Grag]

Ты файл исходных данных как создавал?