Вывод матрицы, не полностью выводится Опции

[ART]

Помогите пожалуйста.
Написал часть программы, которая должна вводить 2 массива из файла и выводить их в другой файл:

Код

Program Pasc;
Var B:Array[1..4,1..4] of real;
   C:Array[1..5,1..5] of real;
   I,J,NumBi,NumBj,NumCi,NumCj:integer;
   fin,fout:text;

procedure Poz(Mas:Array[1..M,1..M] of real; M:integer; var C:mas);
var k:integer;

begin
 For i:=1 to n do
   For j:=1 to n do
     begin
       C[i,j]:=0;
       For k:=1 to n do C[i,j]:=C[i,j]+A[i,k]*B[k,j];
     end;
end;


Begin
 assign(fin,'In.txt');
 assign(fout,'Out.txt');
 reset(fin);
 rewrite(fout);

 For i:=1 to 4 do
   For j:=1 to 4 do
     read(fin,B[i,j]);
 For i:=1 to 4 do
   begin
     For j:=1 to 4 do Write(fOut,B[i,j]:7:2);
     Writeln(fOut);
   end;
 Writeln(fOut);


 For i:=1 to 5 do
   For j:=1 to 5 do
     read(fin,C[i,j]);
 For i:=1 to 5 do
   begin
     For j:=1 to 5 do Write(fOut,C[i,j]:7:2);
     Writeln(fOut);
   end;

End.

Решил проверить, как оно работает и был сильно озадачен:
Это то, что было в файле:
1.00 2.00 1.00 1.00
2.00 2.00 1.00 1.00
1.00 1.00 3.00 1.00
1.00 1.00 1.00 4.00

2.00 2.00 2.00 2.00 2.00
2.00 2.00 2.00 2.00 2.00
1.00 1.00 3.00 1.00 1.00
1.00 1.00 1.00

И тут явно не хватает 7 элементов!

Попробовал вывести на экран, выводит нормально, со всеми элементами, но нужно-то в файл!.

В чем же проблема?

[volvo]

Добавь

Flush(fout);
Close(fout);

А то у тебя в буфер данные записываются, а на диск не сохраняются...

[ART]

Спасибо!