Определить освещенность в точке

uses crt;
var a,b,n,m,a1,b1,i,j:byte;
    h,dr,dl,x,y,d,r,os:real;
begin
clrscr;
writeln('Введите размеры поля:');
write('Длина  a=');readln(a);
write('Ширина b=');readln(b);
write('Количество рядов ламп n=');
readln(n);
write('Количество ламп в ряду m=');
readln(m);
dr:=a/(n-1);
dl:=b/(m-1);
write('Высота ламп над льдом h=');
readln(h);
repeat
writeln('Введите координаты точки:');
write('По длине от начала a1=');readln(a1);
write('По ширине слева b1=');readln(b1);
until(a1>=0)and(a1<=a)and(b1>=0)and(b1<=b);
os:=0;{суммарная освещенность}
for i:=1 to n do{для каждой лампы считаем}
for j:=1 to m do
 begin
  x:=dl*(j-1);{координата по горизонтали от 0,0}
  y:=dr*(i-1);{тоже по вертикали}
  d:=sqrt(sqr(x-b1)+sqr(y-a1));{горизонтальное расстояние от точки до проекции лампочки на лед}
  r:=sqrt(d*d+h*h);{полное расстояние от точки до лампочки-гипотенуза}
  os:=os+200*d/(r*r*r);{прибавляем освещенность от данной лампы
                        (вместо 200 напишите правильное значение)
                        E=(I/r^2)*cosi=(I/r^2)*(d/r)=I*d/r^3}
 end;
writeln('Освещенность в точке ',a1,' ',b1,' = ',os:0:0);
readln
end.