При втором прохождении цикла Использует сохранившееся значение F , как исправить

[qqq``]

program project1;
uses Crt,FIleUtil;
var G,F,w,o,s,a:byte; i,p,d,j,h:integer;
begin
  writeln (utf8ToConsole('Введите значение F'));//входной параметр
  readln (F);
  writeln (utf8ToConsole('Введите начальное значение диапазона G'));
  readln (P);
  writeln (utf8ToConsole('Введите конечное значение диапазона G'));
  readln (D);
  writeln (utf8ToConsole('Введите шаг диапазона J '));
  readln (J);
   h:=(D-P) div J;//по данной формуле вычисляется сколько раз будет выполнятся цикл
   G:=P;
  for i:=1 to h do //Цикл с параметром,чтобы автоматически вычислялся диапазон
   begin
    writeln (utf8ToConsole('Итерация='),i,' G=',G);
     if G<F then
       begin
       writeln ('G<F ',g,'<',f);
           a:=F;
           s:=G;
            G:=(G+F) div 2;
              F:=(a*s)*2;
                end
      else
        begin
      writeln ('G>=F  ',g,'>',f);
           o:=f;
           w:=g;
           F:=(F+G) div 2;
              G:=w*o*2;
                 end;
      writeln ('G=',G);
      writeln ('F=',F);
      G:=P+J*i;//Формула нужна для того, чтобы каждый раз к значению G прибавлялся шаг J.
      readln();
end;
  writeln (utf8ToConsole('Нажмите enter для завершения программы...'));
  readln ();
end.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[p51x]

Сохранить изначальное значение в другой переменной, а потом переписать. Или для расчетов использовать доп. переменную.

[qqq``]

Да я пробовал сохранить F

[Serge_Bliznykov]

Чем Вас не устроила ваша предыдущая тема?! Зачем плодить темы?

проверьте программный код (неправильно идёт счёт)

[qqq``]

Я не очень понял идею " а потом переписать "

я исправил программу

поэтому перезалил

[Аватар]

А в той теме нельзя перезалить? Уже была желтая за кросспостинг, скоро красные начнутся ))

[qqq``]

я не знаю как

я бы удалил тему но тоже не знаю как

[Аватар]

Здесь же сообщения создаешь, а там - не знаю как )) Пост свой можно какое-то время и править, кнопка Правка

[qqq``]

хорошо,спасибо