Игра,угадай задуманное число,Ошибка деления на ноль!!!

[Rid]

Ребят плиз посмотрите,прогу,ошибку понять не могу
Короче мы вводим диапозон чисел от н до м,компьютер спрашивает у нас число мы ему отвечаем,либо да,либо нет!!!он нам выводит в конце всего наше число!!!

program test_1;

uses crt;

var i,k,n,m,f,g,h:byte;
    s,d:word;

begin clrscr;
write('Vvedite granicu n->');readln(n);
write('Vvedite granicu m->');readln(m);
for n:=n to m do begin
i:=i+1;
d:=d+n;
end;
s:=d div i;
while (s<>m) or (k<>2)  do begin
k:=0;
writeln('Chislo bolshe ->',s);
write('Esli da vvedite->1,esli net vvedite ->0',' ->');readln(f);
g:=n;
h:=m;
if f=1 then begin s:=s+1;d:=0;i:=0;
                  for n:=s to h do begin
                      i:=i+1;
                      d:=d+n;
                      end;
                      s:=d div i;
                      end
else if f=0 then k:=k+1;
writeln('Chislo menshe->',s);
write('Esli da vvedite->1,esli net vvedite ->0',' ->');readln(f);
if f=1 then begin s:=s-1;d:=0;i:=0;
                       for h:=s downto g do begin
                       i:=i+1;
                       d:=d+h;
                       end;
                       s:=d div i;
                       end вот в этой части кода не поладки!!!
else if f=0 then k:=k+1;
end;
writeln('Vashe zadum chislo->',s);
readkey;
end.

[Deamonig]

Еще раз поподробней что должна делать твоя програма

[Rid]

Вообщем,комп должен мне выводить мое задуманное число!!!

Диапозон в которм находится мое загаданное число,я ввожу с клавы!!!

[russian-stalker]

Добавь дополнительную проверку
if i<>0 then
s:=d div i;

[Rid]

хых)))спасибо)))