Получаем ошибку о несовместимости типов (89) Error: Incompatible types: 'Integer' and 'Real'
Несовместимые характером типы - целое и дробное.

--- Добавлено в 2023-04-01 19:20:13

В этой строке: if Abs(Sum) < 40 Then // предел расчета.
Что с ней не так? я уж и 40 писал как дробное 40.0 и умножал его на 1.0 - не помогало. Ведь Sum определен уже как дробное (real) а единственным целым в этой строке является 40.. Сижу, бубнами обложился скоро пляска начнется) Если меня не спасут от нее..
Мой тернистый путь с этим портированием кода - я специально документирую, тк с этим столкнется любой новичок. Посмотрим, как я выйду из этого тупика и где там порылась @.

--- Добавлено в 2023-04-01 19:30:09

Forget_Flin, так вы не совсем верный раздел выбрали. И не совсем ясно что нужно доделывать в вашей программе, что работает и что нет. Сохранение как я понял не работает - сохранило нулевой файл. Создайте тему в заказах программ, а здесь будем дальше грызть IC.