[Bargest]

когда пишешь в файл, пиши так:

Код:

writeln(f,field1[i],' ',field2[i]);
for i:=1 to n-1 do
  writeln(f,field1[i],' ',field2[i],' ',field3[i-1]);

Примерно такой алгоритм.