Владеющие паскалем! SOS! Найдите пожалуйста ошибку!((( думаю уже долго, ошибку найти не могу(((Помогите пожалуйста!!!

У тебя тут куча ошибок на самом деле.
Как уже сказал Jurijus Zaksas, вместо start:=i; лучше написать start:=n; потому что после выхода из цикла в предыдущей строке i будет равно n.
С оператором
If A[finish]<a[finish+1]>kmax then for i:=finish to (finish+Kmax1-1) do writeln (A) else for i:=i to (i+kmax-1) do writeln (A);
вообще караул.
Как я понял, у тебя выполняется цикл вывода writeln (A); , но только в зависимости от условия разные границы цикла.
Переменные kmax1 и finish ты не задал, поэтому обращение A[finish] - это обращение в никуда,
Если даже ты задашь finish как границу массива, то обращение a[finish+1] - это выход за границу, по любому ошибка.
Потом, что значит i:=i to (i+kmax-1) ? Счетчика цикла нельзя определять через него же, потому что границы будут меняться на каждом проходе цикла.
Более правильно эту строчку расписать так:
В начале объявить новые переменные:
var J, startcycle, finishcycle
Потом:
If A[finish]<a[finish+1]>kmax then
startcycle := finish; finishcycle := finish+Kmax1-1;
else
startcycle := i; finishcycle := i+kmax-1;
end
for J:=startcycle to finishcycle do writeln (A[J]);

То есть в операторе if мы отдельно устанавливаем границы цикла, а потом отдельно запускаем сам цикл.
Обрати внимание, что он по другой переменной, по J.

start:=i

Это в корне неверно, значение переменной цикла по выходе из цикла нельзя использовать в Паскале, только в С такое прокатывает.

Ну и все остальное.. . Там у тебя всюду этот несчастный индекс. Может, ты begin забыл где-то?

Сделаю за 200 руб

finish чему равно?