Массив в файл в виде квадратной матрицы - Pascal ABC

Формулировка задачи:

Нужно чтобы массив в файл выводило в виде квадратной матрицы, а оно выводит все элементы в одну строку.

program laba;
var a:array[1..255,1..255] of real;
    i,j,n:byte;
    f1,f2:text;
begin
Assign(f1, 'input.txt');
Assign(f2, 'output.txt');
reset(f1);
rewrite(f2);
read(f1,n);
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=1/(i+j);
write(f2,a[i,j]:6:2);
end;
end;
close(f1);
close(f2);
end.

И по возможности исправьте ошибки, если есть.

Решение задачи: «Массив в файл в виде квадратной матрицы»

Листинг программы

for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=1/(i+j);
If j=n then writeLN(f2,a[i,j]:6:2) else write(f2,a[i,j]:6:2);
end;
end;

Объяснение кода листинга программы

В цикле for переменной i присваивается значение от 1 до n.
В теле цикла for переменной j присваивается значение от 1 до n.
В каждой итерации цикла a[i,j] присваивается значение 1/((i+j).
Если j равно n, то выполняется запись в файл f2 с помощью функции writeLN. В качестве аргументов передаются строка a[i,j], число 6 и число 2. Это означает, что в файл записывается число с шестью знаками после запятой и двумя знаками до запятой.
Если j не равно n, то выполняется обычная запись в файл write. В качестве аргументов передаются строка a[i,j], число 6 и число 2.