Прораммирование алгоритмов цикличной структуры, ошибка 207 Опции

[Mambakremen]

Задание
Найти сумму Y=F1(x)/F2(x), где a<=x<=b, x менятется с шагом h=c. Задано F1(x)=exp((1/5)*ln(6*x-x*x)), F2(x)=sin(exp(2*x)*ln(x))-cos(x), a=3.5, b=6.5, c=0.2.(Сам писал функции может ошибся ) Сделать два варианта программы с использованием циклов for & repeat.

Цикл for - ошибка 207

program summa;
uses crt;
const
a=3.5;
b=6.5;
c=0.2; {wag h}
var x,y,F1,F2:real;i,n:integer;
begin
writeln('Summa funrcuu y=F1(x)/F2(x)');
x:=a;
n:=round((b-a)/c)+1;
for i:=1 to n  do
 begin
F1:=exp((1/5)*ln(6*x-x*x));
F2:=sin(exp(2*x)*ln(x))-cos(x);
y:=y+(F1/F2);
x:=x+c;
end;
writeln(y:1:2);
readkey;
end.

Цикл repeat - ошибка 207

program summa;
uses crt;
const
a=3.5;
b=6.5;
c=0.2; {wag h}
var x,y,F1,F2:real;i,n:integer;
begin
clrscr;
writeln('Summa funrcuu y=F1(x)/F2(x)');
x:=a;
repeat
F1:=exp((1/5)*ln(6*x-x*x));
F2:=sin(exp(2*x)*ln(x))-cos(x);
y:=y+(F1/F2);
x:=x+c;
until x>b;
writeln(y:1:2);
readkey;
end.

[volvo]

Только вот в какой-то версии ФПЦ разве True не приведётся к 255?

Кстати, таки не приведется:

37.9.144 Odd
Synopsis: Is a value odd or even ?
Declaration:

function odd(l: LongInt): Boolean
function odd(l: LongWord): Boolean
function odd(l: Int64): Boolean
function odd(l: QWord): Boolean

Visibility: default
Description: Odd returns True if X is odd, or False otherwise.

, то есть, как видишь, все варианты этой функции вернут именно значение типа Boolean. А теперь смотрим сюда:

Table 3.3: Boolean types
Name          Size    Ord(True)
Boolean       1       1
ByteBool      1       Any nonzero value
WordBool      2       Any nonzero value
LongBool      4       Any nonzero value

Что гарантирует: результат Ord(Boolean) будет либо 0, либо 1. А с какой стати приведение Byte(1) может дать 255 - непонятно совершенно.