В матрице А[7,8] найти произведение элементов, значение которых меньше последнего элемента матрицы. - Pascal

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

Помогите решить задачу! В матрице А[7,8] найти произведение элементов, значение которых меньше последнего элемента матрицы. Если таких элементов нет, то на печать выдать соответствующее сообщение.

Решение задачи: «В матрице А[7,8] найти произведение элементов, значение которых меньше последнего элемента матрицы.»

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

Var a:array[1..7, 1..8] of integer;
p,i,j,k:integer;
begin
randomize;
for i:=1 to 7 do
begin
for j:=1 to 8 do
a[i,j]:=random(50)-20;
end;
for i:=1 to 7 do
begin
for j:=1 to 8 do
write(a[i,j]:10)
end;
writeln;
p:=1;
k:=a[7,8];
for i:=1 to 7 do
begin
for j:=1 to 7 do
begin
if a[i,j]<k then
p:=p*a[i,j];
else continue
end;
end;
if p=1 then 
writeln('elementov menshe poslednego net');
else writeln('p=', p:6:3)
end.

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

Объявляется двумерный массив a размером 7x8 для хранения целых чисел.
В цикле заполняются все элементы матрицы a случайными числами от -20 до 30.
Выводятся все элементы матрицы a.
Инициализируется переменная p единицей.
Значение последнего элемента матрицы a сохраняется в переменной k.
В цикле перебираются все элементы матрицы a.
Если текущий элемент меньше k, то он умножается на p.
Если p=1, выводится сообщение elementov menshe poslednego net, иначе выводится значение p.