Программа нахождения суммы.

[maris]

Программа почему-то не считает сумму..., проверьте пожалуйста...
Задание. Написать программу для нахождения сумм расстояний от заданных k (k<=10) точек до фиксированной прямой (в пространстве). Подготовить и использовать процедуру определения расстояния от точки до прямой (в пространстве).
Код:
program proga;
uses crt;
const Kmax=10;
var S: real; a,b,c: real;
K,i: integer;
var x,y,z: array [1..Kmax] of real;
function calcdist(var a,b,c,x,y,z: integer):real;
begin
calcdist:=(a*x+b*y+c)/sqrt (a*a+b*b);
end {calcdist};
begin
write ('‚ўҐ¤ЁвҐ §**зҐ*Ёп Їаאַ© a: ');
readln (a);
write ('‚ўҐ¤ЁвҐ §**зҐ*Ёп Їаאַ© b: ');
readln (b);
write ('‚ўҐ¤ЁвҐ §**зҐ*Ёп Їаאַ© c: ');
readln (c);
write ('‚ўҐ¤ЁвҐ зЁб«® в®зҐЄ (<=10) ');
readln (K);
for i:= 1 to K do
begin
readln (x[i],y[i],z[i]);
end;
S:=0;
for i:= 1 to K do
begin
l:= (a*x[i]+b*y[i]+c)/ sqrt(a*a+b*b);
end {l};
begin
for i:= 1 to K do;
S:=S+l;
for i:= 1 to K do
readln (S);
end.