дана последовательность целых положительных чисел.найти произведение только тех из них которые больше заданного числа m.если таких чисел нет,то выдать сообщение об этом Паскаль!!! можно с обьяснениями плиз))

program test; var a: array[1..10] of integer;m, i: integer; total: longint; begin    randomize;    total:=1;    for i:=1 to 10 do    begin       a[i]:=random(20)+1;       write(a[i], ' ');    end;    writeln();    write('Enter the number: ');    readln(m);    for i:=1 to 10 do    begin       if a[i] > m then          total:= total*a[i];    end;    if total > 1 then       writeln('Total = ', total)    else       writeln('Error');    readln; end.