Дана последовательность целых положительных чисел. найти произведение только тех из них которые больше заданного числа 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.