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-количество элементов в массиве