Запись результата в файл Опции

[-grannos-]

Господа, подскажите пожалуйста. Тут такое дело: как результат работы программы на экран выводится двумерная матрица n*n, например :
12 3 5 7
5 12 4 31
4 23 52 1
14 5 6 9.

Это в результате такого куска кода:

 for i:=1 to n do
 begin
 writeln;
 for j:=1 to n do
 {begin}
 write(a[i,j],' ');

А вот вся:

 program lat;
  uses crt;
  var a:array [1..100,1..100] of integer;
 i,j,n,c:integer;
 procedure input;
 begin
 clrscr;
 write ('Vvedite razmer ');
 readln(n);
 end;
 procedure output;
 begin
 for i:=1 to n do
 for j:=1 to n do
 begin
 a[i,j]:=i+j-1;
 if a[i,j]>n then a[i,j]:=a[i,j]-n;
 end;
 for i:=1 to n do
 begin
 writeln;
 for j:=1 to n do
 {begin}
 write(a[i,j],' ');
 end;
 end;
   begin
   input;
   output;
   readln;
end.

Подскажите, как сделать вывод этих же результатов в файл (текстовый), тоже в виде матрицы, а то у меня только последняя строка в файл пишется ((. Вот так пытался:

 for i:=1 to n do
 begin
 writeln;
 for j:=1 to n do
 {begin}
 write( f, a[i,j]);

P.S. Ну если низзя в виде матрицы, то пусть хотя б в одну строку,но все файлы.
Заранее спасибо.