Найти среднее арифметическое элементов каждой из строк матрицы - Pascal ABC

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

ЦЕЛЬ : Задав двумерный массив вещественных данных (матрицу А), реализовать его обработку, как указано в варианте. Исходные данные считывать из предварительно подготовленного файла. Данные в файле задать самостоятельно, учитывая специфику задачи. Размерность массива должна определяться программой исходя из формата файла-источника. Задана квадратная матрица A размером N x N (N<=10), состоящая из действительных элементов. 3) Найти среднее арифметическое элементов каждой из строк этой матрицы. помогите пожалуйста,умоляю молю, работа с файлом т.е матрица в текстовом доке, буду рад любой помощи

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

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

var f:text;
     a:array[1..10,1..10] of real;
     n,i,j:byte;
begin 
assign(f,'matrix.txt');//файл в папке с программой
reset(f);
readln(f,n);
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
     read(a[i,j]);
     write(a[i,j]:6:2);
   end;
  writeln;
 end;
close(f); 
....................

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

В данном коде происходит чтение и запись данных в текстовый файл matrix.txt.

Строка assign(f,'matrix.txt'); устанавливает имя файла, с которым будет работать программа.
Строка reset(f); сбрасывает счетчик строк и столбцов матрицы.
Строка readln(f,n); считывает количество строк в матрице и сохраняет его в переменной n.
В цикле for i:=1 to n do происходит чтение и запись каждой строки матрицы.
Внутри цикла for j:=1 to n do происходит чтение элемента матрицы по индексу i,j и его запись в соответствующую ячейку массива a[i,j].
Строка write(a[i,j]:6:2); записывает значение элемента матрицы в формате 6 цифр, разделенных двоеточием, в стандартный вывод.
Строка writeln; переходит на новую строку после записи каждой строки матрицы.
В конце программы происходит закрытие файла с помощью close(f);.