В матрице в каждой строке элементы, стоящие на нечетных местах, заменить суммой, на четных – произведением соответствующей пары. Элементы последней строки вывести в массив — Pascal(Паскаль)

program PascalGuru;

var
  A, PR: array [1 .. 50, 1 .. 50] of integer;
  { объявление переменных 2-мерных массивов }
  B: array [1 .. 50] of integer; { объявление переменной 1-мерного массива }
  i, j, n: integer; { переменные для цикла }

  { ------------------------------------------- }
begin
  writeln('Vvedite razmer matricy A:');
  read(n); { Ввод размера матрицы }

  for i := 1 to n do
    for j := 1 to n do
    begin
      write('A[', i, ',', j, ']=');
      readln(A[i, j]);
    end; { Ввод значений матрицы с клавиатуры }

  writeln('Ishodnaya:');
  for i := 1 to n do
  begin
    writeln;
    for j := 1 to n do
      write(A[i, j]:8);
  end; { Вывод введенной матрицы на экран }
  writeln;
  { *********************************************** }

  for i := 1 to n do { цикл прохода по каждой строке }
  begin
    for j := 2 to n do { проходим по эл-там строки начиная со 2-го }
      if not odd(j) then { если на чётном месте }
        PR[i, j] := A[i, j - 1] * A[i, j]
        { умножаем и записываем в преобразованный массив }
      else
        PR[i, j] := A[i, j - 1] + A[i, j];
    { суммируем и записываем в преобразованный массив }
    PR[i, 1] := A[i, 1] + A[i, 2];
    { значение первого эл-та строки = сумме первого+второго }
  end;

  writeln('Preobrazovannaya:');
  for i := 1 to n do
  begin
    writeln;
    for j := 1 to n do
      write(PR[i, j]:8);
  end; { Выводим преобразованную матрицу на экран }

  writeln;
  writeln;
  for j := 1 to n do
    B[j] := PR[n, j];
  { Записываем элементы последней строки преобразов. матрицы в одномерный массив В }
  writeln('Massiv "B" iz poslednei stroki: ');
  for i := 1 to n do
    write(B[i]:8); { Выводим одномерный массив В на эран }

  readln;

end.