pascal algorithm with runtime error

I did this algorithm but it does not run, an "otherwise not expected" error appears
Program valuemajor_oumenor;
var
valornicial, final value: integer;
To start
writeeln (& # 39; Enter a value & # 39;);
read (initial value);
writeeln (& # 39; Enter another value & # 39;);
read (final value);
if (initial_value> final_value) then
while (initial_value> = final_value) of
Writeln (& # 39; initial value & # 39;)
initial value: = initial value + 1
if not
while (initial value <= final value) of
Writeln (final value)
final value: = initial value-1

End