Записать в файл сумму элементов нечетных строк таблицы - Turbo Pascal

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

Ребята, знаю, вы мастера своего дела. Не могли бы помочь написать программу в TP. Сам не могу, мозгов на это дело пока не отросло, а времени маловато. Условие задачи:Сумма строк. Задана двумерная матрица размерностью 12х12 элементов, заполняющаяся случайными числами из диапазона [0..150]. Найти, вывести результаты на экран и записать в файл «output.exe» сумму элементов нечетных строк таблицы.

Решение задачи: «Записать в файл сумму элементов нечетных строк таблицы»

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

var a:array[1..12,1..12] of integer;
i,j, sum : integer;
  f:Text;
begin
  Randomize;
  for i:=1 to 12 do begin
   for j:=1 to 12 do begin
     a[i,j] := Random(151);
     Write(a[i,j]:5);
   end;
   WriteLn
 end; 
 
 sum:=0;
 i:=1;
 while i<=12 do begin
   for j:=1 to 12 do sum := sum + a[i,j];
   Inc(i,2)
 end;
 
 WriteLn('sum of odd rows = ',sum);
 
 Assign(f,'output.exe');
 Rewrite(f);
 WriteLn(f, sum);
 Close(f);
 
 ReadLn
end.

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

Создается переменная a типа array[1..12,1..12] of integer, которая представляет собой таблицу размером 12x12, где каждый элемент содержит целое число.
Создаются три переменные i, j и sum, которые будут использоваться для итерации по таблице и суммирования элементов.
Создается переменная f типа Text, которая будет использоваться для записи результатов в файл.
Используется функция Randomize, чтобы инициализировать генератор случайных чисел.
Запускается цикл for, который выполняется 12 раз. Внутри этого цикла каждая строка таблицы заполняется случайными числами с помощью цикла for.
После завершения внутреннего цикла записывается символ новой строки (WriteLn).
Создается переменная sum, которая инициализируется значением 0.
Запускается внешний цикл while, который выполняется до тех пор, пока значение переменной i меньше или равно 12.
Внутри внешнего цикла каждая строка таблицы суммируется с помощью внутреннего цикла for.
После завершения внутреннего цикла значение переменной i увеличивается на 2.
После завершения внешнего цикла записывается значение переменной sum в файл с помощью функции WriteLn.
Файл перезаписывается с помощью функции Assign, а затем переписывается с помощью функции Rewrite.
Закрывается файл с помощью функции Close.
Вызывается функция ReadLn, чтобы завершить выполнение программы.