Найти сумму элементов первой и третьей строк матрицы A(NxM). - Turbo Pascal

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

Задача: Найти сумму элементов первой и третьей строк матрицы A(NxM).

Решение задачи: «Найти сумму элементов первой и третьей строк матрицы A(NxM).»

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

var
i,j,m,n,s,sum,sum1:integer;
x:array [1..100,1..100] of integer;
begin
  readln(n,m);
  randomize;
  for i:=1 to n do 
    for j:=1 to m do x[i,j]:=random(99)-17;
  sum:=0;
  for i:=1 to n do
  sum:=sum+x[1,i];
  sum:=0;
  for i:=1 to n do
  sum1:=sum1+x[3,i];
  s:=sum+sum1;
  writeln(s);
end.

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

Объявлены переменные: i, j, m, n, s, sum, sum1 (строки с 1 по 7)
Объявлен массив x размером 100x100 (строка 8)
Ввод с клавиатуры значений n и m (строка 9)
Инициализация случайными значениями от 1 до 100 всех элементов массива x (строки с 10 по 18)
Начальное значение суммы установлено в 0 (строка 19)
Первый цикл перебирает все элементы первой строки массива x и суммирует их (строки с 20 по 24)
Второй цикл перебирает все элементы третьей строки массива x и суммирует их (строки с 25 по 29)
Суммы sum и sum1 складываются (строка 30)
Результат выводится на экран (строка 31)