нужна помощь! где ошибка?

[Drive]

Program PR11;
Var
x: array [1..20] of real;
m,
xn, xk: real;
a, b, c, d,
i: byte;
y: real;
FO: text;
Begin
assign (FO, 'pr11.out');
rewrite (FO);
writeln (FO, 'Тестирование программы PR11');
writeln (FO, 'студента группы 1190 Дуброва Сергея');
writeln (FO);
writeln ('Ввести значение m');
readln (m);
if m <= 20
then
begin
writeln ('Ввести значения a, b, c, d, xn, xk');
readln (a, b, c, d, xn, xk);
writeln ('Ввести ', m, ' значений элементов массива x');
for i:= 1 to m do
read (x)
{end for};
writeln (FO, 'Исходные данные');
writeln (FO);
writeln (FO, 'a = ', a:12, ' b = ', b:12, ' c = ', c:12, ' d = ', d:12);
writeln (FO, 'xn = ', xn:12, ' xk = ', xk:12, ' m = ', m);
writeln (FO, 'Массив x');
writeln (FO);
for i := 1 to m do
writeln (FO, x)
{end for};
writeln (FO);
writeln (FO, 'Искомые результаты');
writeln (FO);
writeln (FO, '------------------------------------------');
writeln (FO, '| i | x | y |');
writeln (FO, '------------------------------------------');
for i:= 1 to m do
begin
if ((x < xn) or (x > xk))
then
writeln (FO, 'x[', i, '] = ', x:12, ' – ошибка')
else
begin
y := (a*x + b)*(c*x – d);
writeln (FO, '| ', i:3, ' | ', x:12, ' | ', y:12, ' |')
end
{end if}
{end for};
writeln (FO, '------------------------------------------');
end
else
writeln (FO, 'm = ', m, ' – ошибка')
{end if}
close (FO);
writeln ('Выполнение программы PR11 завершено');
readln;
readln;
End.

[BBB]

Заменить описание
m: real;
на
m: byte;

А ниже какой-то раздрай с else. if один, а else - две штуки.