Несчитает контрольную сумму напряжения

[PamPam]

procedure Uin1(n,k :Integer;
kl :byte;
U0,T1,uk,Uv :Real;
var uin,U :AT);
var
t,del:Real;
i :Integer;
Begin

t:=0;
del:=T1/n;


begin
Uv:=0;
for k:=1 to 3 do
u[1]:=15;
u[2]:=4;
u[3]:=2.5;
for i:=1 to n do
begin
uv:=uin[i]+U[k]*Sin(2*3.14*k*t/T1)+U0;
uin[i]:=uv;
t:=t+del;
end;
end;
End;
подскажите где тут ошибка

[Sazary]

Насколько я понимаю, вы привели код только процедуры?
Если так, то попробуйте (не проверял):

procedure Uin1(n,k :Integer;
kl :byte;
U0,T1,uk,Uv :Real;
var uin,U :AT);
var
t,del:Real;
i :Integer;
Begin

t:=0;
del:=T1/n;

Uv:=0;
for k:=1 to 3 do
	begin
	u[1]:=15;
	u[2]:=4;
	u[3]:=2.5;
	for i:=1 to n do
	 begin
	 uv:=uin[i]+U[k]*Sin(2*3.14*k*t/T1)+U0;
	 uin[i]:=uv;
	 t:=t+del;
	 end;
	end;
End;

[PamPam]

спс за помощь