Помогите с паскалем

program LastColumnAndRowProduct;

const
Rows = 4; // Количество строк
Cols = 4; // Количество столбцов

var
Matrix: array[1..Rows, 1..Cols] of Integer;
RowProduct, ColProduct: Integer;
i, j: Integer;

begin
// Инициализация матрицы
writeln('Введите элементы матрицы ', Rows, 'x', Cols, ':');
for i := 1 to Rows do
for j := 1 to Cols do
read(Matrix[i, j]);

// Вычисляем произведение элементов последней строки
RowProduct := 1;
for j := 1 to Cols do
RowProduct := RowProduct * Matrix[Rows, j];

// Вычисляем произведение элементов последнего столбца
ColProduct := 1;
for i := 1 to Rows do
ColProduct := ColProduct * Matrix[i, Cols];

// Выводим результаты
writeln('Произведение элементов последней строки: ', RowProduct);
writeln('Произведение элементов последнего столбца: ', ColProduct);
end.