Помогите!мне необходимо узнать что делает эта часть программы
i:=2;mx:=0;imx:=0;
while i<=n do
if a[i]>a[i-1] then
begin
j:=i;k:=1;
while (j<=n)and(a[j]>a[j-1]) do
begin
j:=j+1;
k:=k+1;
end;
if k>mx then
begin
mx:=k;
imx:=i-1;
end;
i:=i+k;
end
else i:=i+1;
writeln('Максимальная последовательность возрастания=',mx);
for i:=imx to imx+mx-1 do
write(a[i],' ');
readln
end.