Вывести в текстовый файл значение произведения главной диагонали двумерного массива - Pascal

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

Дан действительный двумерный массив A[1..7,1..7] элементы которого расположены в текстовом документе. Выведите в текстовый файл значение произведения главной диагонали. Помогите решить пожалуйста!!!!

Решение задачи: «Вывести в текстовый файл значение произведения главной диагонали двумерного массива»

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

  Read(f,p);
  for i:=1 to 6 do begin
    for j:=1 to 8 do Read(f,x);
    p:=p*x;
  end;

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

Указана команда Read(f,p), которая считывает значение из файла f и присваивает его переменной p.
Запущен цикл for i:=1 to 6 do begin, который будет выполнять следующие действия 6 раз.
Вложен внутренний цикл for j:=1 to 8 do, который будет выполнять следующие действия 8 раз.
Внутри внутреннего цикла считывается значение из файла f и присваивается переменной x.
Переменная p умножается на значение переменной x и результат сохраняется обратно в переменную p.
Закрыты циклы и выполнение кода завершается.