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.

[Ozzя]

Проверял ответ то дало мне.

V.k.l.chr.by
Мне очень неудобно обвинять Вас во лжи, но...

i.k:integer;

Вот тут компилятор обругает Вас нехорошими английскими словами. А ведь я Вас просил:

Может, синтаксические ошибки исправишь?

Извините, более НЕ собираюсь Вам помогать.

[V.k.l.chr.by]

V.k.l.chr.by
Мне очень неудобно обвинять Вас во лжи, но...

i.k:integer;

Вот тут компилятор обругает Вас нехорошими английскими словами. А ведь я Вас просил:
Извините, более НЕ собираюсь Вам помогать.

Полностью с Вами согласен насчёт ошибки.Но у меня не выдавала ошибку как ни странно.Вот высылаю скриншот.А ошибку исправил.После сего выдала ошибку"File not found"Кстати именно это и ошибка тоже выскакивала у меня в предудущих премарах когда тренировался на примерах.На именно стоит обратить внимание.По идее алгоритм решенее верен.Или...