дана...

дана последовательность целых положительных чисел.найти произведение только тех из них которые больше заданного числа 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:=random(20)+1;
      write(a, ' ');
   end;

   writeln();
   write('Enter the number: ');
   readln(m);

   for i:=1 to 10 do
   begin
      if a > m then
         total:= total*a;
   end;

   if total > 1 then
      writeln('Total = ', total)
   else
      writeln('Error');
   readln;
end.