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

[Яна3773]

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

[Яна3773]

 Program  _1;
   var
        i, j: integer;
        m:array [1..2, 1..2] of real;
        f:text;
   begin
     assign (f, 'input.txt');
     {$I-}
     reset(f);
     {$I+}
     if IoResult = 0 then
       begin
         for i:=1 to 2 do
           for j:=1 to 2 do
            read (f, m[i,j]);
       end;
     close(f);

         begin
          for i:=1 to 2 do
           for j:=1 to 2 do
         m[i,j]:=(150*i+50*i+100)/2;
       end;

     assign (f, 'uotput.txt');
     rewrite(f);
     For i:=1 to 2 do
       begin
         for j:=1 to 2 do
         write (f, m[i,j]2);
       writeln(f);
       end;
       close(f);
   end.

Добавлено через 16 мин.
издеваться не получается только над собой.
исходный файл с матрицей (0 0; 1 1) должен перейти в файл с матрицей (50 50 ; 150; 150).

Но этого не происходит. Почему, понять не могу, ведь формула не трудная x=(150*i+50*i+100)/2 и изменила я в задаче не много. В общем, середина задачи явно не правильная...не пойму что делать, просветите пожалуйста.

Сообщение отредактировано: Яна3773 - 20.10.2007 15:50