Unit Опции

[V.k.l.chr.by]

Уважаемые форумчане помогите пожалуйста в задаче. Что я не правильно сделал если оно так .И так вот условие:

Используя модуль Unit для вычисления сумм (произведений), построить схему машинного алгоритма и составить Паскаль-программу решения задачи

a1=
t1= a1 *
N £ 5.
А вот само решение моё:
Unit Modul1;
interface
const w=14;q=21;v=12;k=5;
Type
m=array [1..k]of real;
Procedure Pr(zf:m;xf:m;kf:integer);
var
Pro:real;
implementation
Procedure Pr(zf,xf:m;kf:integer);
var
Pro:real;
var
i:integer;
begin
pro:=1;
for i:=1 to kf do
begin
Pro:=Pro*(zf[i]*sqrt(abs(q)))/(sqr(cos(xf[i]))+ln(xf[i]));
writeln(' Pro=' , Pro:6:1);
end;
end;
end.
Program mod1;
uses CRT,printer,Modul1;
var
z,x:m;
i.k:integer;
d2,q2:real;
begin
clrscr;
q2:=ln(w-v)
for i:=1 to k do
begin
writeln('vesti z[' ,i, ']:');
read(z[i]);
writeln('vesti x[' , i, ']:');
read(x[i]);
d2=q2+Pr(z,x,kf);
writeln('d2=' , d2:4:2);
end.