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

[Яна3773]

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

[Яна3773]

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

   assign (f1, 'input1.txt');
     {$I-}
     reset(f1);
     {$I+}
     if IoResult = 0 then
       begin
         for i:=1 to 2 do
           for j:=1 to 2 do
          read (f1,mm[i,j]);
       end;
     close(f1);


     begin
       for i:=1 to n do
        for j:=1 to 2 do
      m[i,j]:=(mm[2,1]*m[i,j]-mm[1,1]*m[i,j]+mm[2,1]+mm[1,1])/2;
     end;

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

Добавлено через 3 мин.
Сменила, но это не помогло.
Понимаю, что достала уже всех.
Но есть ещё кое-что.
Как теперь в массив файла UOTPUT.TXT вставить строчку move to вместо line to, да не просто так а в первой строчке массива один раз. Чтобы вот так получилось
50 50 move to
100 75 line to
150 150 line to
У меня постоянно line to выходит, а это явно не то.

Сообщение отредактировано: Яна3773 - 21.10.2007 12:26