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]<m[min1] 
  then min1:=i;
 For i:= 2000 to 2014 do
 
 
 
 
 Writeln;
 Writeln('Четвертый год, когда изменение индекса потребительских цен составило не более 15% в сторону уменьшения: ',min2,'-й год');
end.

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.