Help! Задать случайным образом массив. Найти минимальную сумму трёх подряд идущих элементов массива. Вывести номер первого элемента из тройки элементов с максимальной суммой.(Паскаль)
Кто может, напишите решение задачи, желательно с комментариями.

program z;
var a:array [1..40] of integer;
     i,k,max,min,n,x:integer;
begin
read(n,x);
for i:=1 to n do
a[i]:=random(x);
min:=a[1]+a[2]+a[3];
max:=0;
for i:=1 to n-2 do
begin
if a[i]+a[i+1]+a[i+2]<min then
min:=a[i]+a[i+1]+a[i+2];
if a[i]+a[i+1]+a[i+2]>max then
begin
max:=a[i]+a[i+1]+a[i+2];
k:=i;
end;
end;
write(min,' ');
write(k);
end.
x-максимальное число n-количество элементов в массиве