PascalABC.NET , массив

Формулировка задачи:

Помогите пожалуйста дописать программу

Program ex_3;
const
m: Array [2000..2014] of real = (207.5,146.1,134.8,125.4,114.4,108.0,106.6,112.1,113.3,110.1,109.9,208.7,121.8,116.5,116.2);
var
i, min1, min2, j:integer;
Begin
 Writeln('Исходный массив:');
 For i:= 2000 to 2004 do
  Write(m[i]:6:2);
 Writeln;
 For i:=2005 to 2009 do
  Write(m[i]:6:2);
  Writeln;
  For i:= 2010 to 2014 do
  Write(m[i]:6:2);
 Writeln;
 min1:=1;
 min2:=1;
 For i:= 2000 to 2014 do
  If m[i]Решите задачу, используя метод поиска перебором. Значения элементов одномерного массива задайте при его описании.

		

Решение задачи: «PascalABC.NET , массив»

Листинг программы

const
m: Array [2000..2014] of real = (207.5,146.1,134.8,125.4,114.4,108.0,106.6,
                                 112.1,113.3,110.1,109.9,208.7,121.8,116.5,116.2);
var j,k,min:integer;
Begin
writeln('Исходный массив:');
for var i:= 2000 to 2014 do
 begin
  write(m[i]:6:1);
  if i mod 4=3 then writeln;
 end; 
 writeln;
 min:=0;
 k:=0;
 j:=2001;
 while (j<=2014)and(k<4)do
  begin
   writeln(j,'=',m[j]/m[j-1]*100:0:1);
   if m[j]/m[j-1]>0.85 then inc(k);//это можно и убрать
   if k=4 then min:=j
   else inc(j)
  end; 
 writeln('Четвертый год, когда изменение индекса потребительских цен составило не более 15%');
 writeln('в сторону уменьшения: ',min,'-й год');
end.

Объяснение кода листинга программы

Список элементов кода:

Объявление константы m типа массив (Array) с указанием размера в квадратных скобках и инициализацией значений элементов массива в запятых.
Объявление переменных j, k, min типа integer с инициализацией значений 0.
Вывод значений элементов массива m с помощью цикла for и функции write.
Установка значения переменной min равным 0.
Установка значения переменной k равным 0.
Установка значения переменной j равным 2001.
Запуск цикла while, который выполняется до тех пор, пока j меньше или равно 2014 и k меньше 4.
Внутри цикла вычисление значения индекса потребительских цен для года j и вывод его на экран с помощью функции write.
Проверка значения m[j]/m[j-1] на условие больше 0.85 и увеличение значения переменной k при выполнении условия.
Увеличение значения переменной j на 1 при выполнении условия.
Если значение переменной k равно 4, то присваивание значения переменной min значение переменной j.
Если значение переменной k меньше 4, то увеличение значения переменной j на 1.
После окончания цикла вывод на экран значения переменной min и сообщение о том, что это четвертый год, когда изменение индекса потребительских цен составило не более 15% в сторону уменьшения.
Вывод на экран сообщения о том, что это четвертый год, когда изменение индекса потребительских цен составило не более 15% в сторону уменьшения.