сможете найти ошибку..?) Преобразование файла

[bifshtex]

В текстовом файле хранятся квадратные целочисленные матрицы порядка n. Преобразовать файл, удалив из каждой матрицы элементы побочной диагонали.

перед тем как запустить программу на выполнение я создал матрицу 4 на 4.В результате получилась что-то непонятное...  

program lab_9_1;
uses crt;
const n=4;
var
f1,f2:text;
str_file:string;
x:integer;
i,j:byte;

begin
clrscr;
write('input name file:');
readln(str_file);

assign(f1,str_file);
reset(f1);

assign(f2,'dop.txt');
rewrite(f2);

while not eof(f1) do
 for i:=1 to n do
  begin
  for j:=1 to n do
   begin
    read(f1,x);
    if j<>(n-i+1) then write(f2,x);
   end;
  writeln(f2);
  end;

close(f1);
close(f2);
erase(f1);
rename(f2,str_file);
end.

[InfStudent]

Во первых что такое writeln(f2)?))

[bifshtex]

Эта прога правильно работает, просто я не так тестировал)
А writeln(f) - это пустая строка, как обычно, только в файле.