Создайте программу, реализующую обработку массива вещественных чисел — Pascal(Паскаль)

Программа должна удовлетворять следующим требованиям:
– В основной программе нужно объявить массив вещественных чисел и заполнить его значениями с клавиатуры.
– Основная программа должна вызывать две вспомогательные подпрограммы.
– Первая подпрограмма-функция должна быть предназначена вычисления значения в соответствии с заданием, указанным в столбце 3 таблицы вариантов. Основная программа должна осуществлять вывод на экран результата работы первой функции;
– Вторая подпрограмма-процедура должна быть предназначена для вывода на экран списка элементов массива, удовлетворяющих условию, указанному в столбце 4 таблицы вариантов.
– Значения А, В, m (в зависимости от варианта) должны быть параметрами подпрограмм и должны вводиться с клавиатуры в основной программе.

x=1;-1;0.2;-2.7*(10 в 4 степени);9*(10 в -3 степени); 0.035
A=0, B=1
Функция должна вычислять Произведение элементов массива.
Xi>=B или Xi<=A

uses crt;
const n=6;
type mas=array[1..n] of real;
function Proiz(m:mas;a,b:real):real;
var p:real;
    i:byte;
begin
p:=1;
for i:=1 to n do
if(m[i]>=b)or(m[i]<=a) then p:=p*m[i];
Proiz:=p;
end;
procedure Vyvod(m:mas;a,b:real);
var i:byte;
begin
writeln('Элементы <=',a:0:2,'  >=',b:0:2);
for i:=1 to n do
if(m[i]>=b)or(m[i]<=a) then
write(m[i]:8:3);
writeln;
end;
var x:mas;
    i:byte;
    a,b:real;
begin
clrscr;
writeln('Введите элементы массива(1;-1;0.2;-2.7*10^4;9*10^-3;0.035)');
for i:=1 to n do
read(x[i]);
readln;
write('a=(0)');
readln(a);
write('b=(1)');
readln(b);
Vyvod(x,a,b);
write('Произведение=',Proiz(x,a,b):0:3);
readln
end.