Работа с циклами в Delphi 7. Выйти из цикла достигнув указанного условия.

[CONDOR*]

Задача в Delphi 7
В приведенном задании рассмотреть указанную последовательность в цикле и выйти из цикла, достигнув указанного условия с выдачей порядкового номера члена, при котором достигнуто условие.
a_n+1=(a_n+a_n-1)/2;
a1=1, a2=10
|a_n-7|<10^-4

[Аватар]

i:=0;
while <условие> do begin
  Inc(i);
  <что-то делаем>
end;
здесь в i порядковй номер