Pascal в чем ошибка?

[NIik0]

Здравствуйте. Мне нужен исходник рабочей программы задачника pascal array 72.
Дан массив а размера n и целые числа k и l. Переставить в обратном порядке элементы массива с нумерами от k до l включительно.
Задачу нужно решить с помощью динамического массива. У меня цикл делает на 1 шаг больше. В чем у меня ошибка?

 var n := readinteger;
 var a := readarrreal(n);
 var k := readinteger;
 var l := readinteger;
 var x := n - 1;
 for var i := k - 1 to (l - 1)div 2 - 1 do
 begin
 var t := a[x];
 a[x] := a*;
 a := t;
 x -= 1;
 end;
 a.write;

Добавлено через 13:55 мин.*
Кароче ясно, на телонко мне ничем помочь несмогут...