Реши задачку Задан числовой массив, состоящий из 14 элементов. Найдите творение

var i,min,mult: integer;
arr: array[1..14] of integer;

Цикл для задания массива из положительных и отрицательных целых чисел:

begin
for i:=1 to 14 do
begin
arr[i]:=random(20)-10;
write(arr[i]:4);
end;

writeln;
min:=arr[1];
mult:=1;

Цикл, который обретает малый элемент и присваивает его переменной min:

for i:=1 to 14 do
begin
if arr[i]lt;min then
min:=arr[i];
end;

Цикл, который инспектирует, удовлетворяет ли элемент условию задания, и если да, то множит такие элементы:

for i:=1 to 14 do
begin
if (arr[i]gt;min) and (arr[i]lt;0) then
mult:=mult*arr[i];
end;

writeln(mult);

end.