Сформировать новый массив, являющийся разностью исходных массивов

Const m=12;
type mas=array[1..m] of real;
Var a,b,c:mas;
    n:byte;
    s,s1,s2,s3:real;
    i:integer;
Procedure wwod(var x:mas; a:char);
var i:byte;
Begin
 for i:=1 to n do
  Begin
       x[i]:=1.13*random(10);
       write(x[i], '   ');
 
   End;
 End;
Procedure wywod(x:mas);
var i:byte;
Begin
    for i:=1 to n do
     Begin
    write(x[i],'  ');
     End;
End;
Procedure new_mas(x,y:mas;var z:mas);
var i:byte;
Begin
    for i:=1 to n do
         z[i]:=x[i]-y[i];
End;
function proizv(x:mas):real;
var i:byte; s:real;
begin
for i:=1 to n do
s:=1;
if x[i]>2.71 then
              s:=s*x[i];
              proizv:=s;
 end;
{основная программа}
Begin
Writeln('Введите количество элементов массивов:');
Readln(n);
Writeln('Ввод массива А:');
wwod(a,'a');
readln;
Writeln('Ввод массива В:');
wwod(b,'b');
readln;
{формирование нового массива С, являющегося разностью массивов А и В}
new_mas(a,b,c);
Writeln('Вывод массива С:');
wywod(c);
writeln;
 {вычисление произведения элементов массива больше 2,71}
 s1:=proizv(a);
Writeln('Произведение элементов массива А,которые больше 2,71: ',s1);
 s2:=proizv(b);
Writeln('Произведение элементов массива В,которые больше 2,71: ',s2);
 s3:=proizv(c);
Writeln('Произведение элементов массива С,которые больше 2,71: ',s3);
end.

function proizv(x:mas):real;
var i:byte; s:real;
begin
s:=1;//<<тута
for i:=1 to n do 
if x[i]>2.71 then
              s:=s*x[i]; 
proizv:=s;
end;