Массив в файле. Опции

[Яна3773]

Доброго времени суток!
Как прочитать и записать массив (двумерный) чисел из файла, причём покомпонентно?
Задача интересная, прыгнуть из одной системы координат в другую. Но как прочитать элемнты массива из файла, а потом поиздевавшись над ними в Паскале, переписать их в другой файл, понятия не имею. Всё время какие-то строки попадаются, а не элементы матрицы. Помогите пожалуйста. Заранее, спасибо.)

[Яна3773]

 Program  _Transition;
   var
        x: real;
        f,f1 : text;

   begin
    assign (f, 'f.txt');
    reset (f);
    assign (f1, 'f1.txt');
    rewrite (f1);
    while  not EOF  (f) do
     begin
       read (f, x);
       x:=x*2;
         begin
         write (f1,x:4:0);
         end;
      end;
     close(f);
     close(f1);
    end.

Добавлено через 1 мин.
Возращение
Задача работала прекрасно, но у моего препода личная неприязнь к массивам…сказал их убрать, да и проверку пустой файл или нет тоже . Я убрала, но как теперь из двух столбцов (причём количество строк этой матрицы не известно) в входном файле сделать те же 2 столбца в выходном ( при этом, умножив каждую компоненту на 2), понятия не умею. В выходном файле опять строчки получаются, а нужно сохранить оформление под матрицу.
Вот такая вот…. математика. Помогите пож.)