Задан массив из семи элементов. найти сумму максимального и минимального элементов и их индексы

Program zadacha;vara: array[1..7] of integer;i,min,max,nmin,nmax,sum: integer;beginwriteln('enter numbers');for i:=1 to 7 do read(a[i]);min:=a[1];nmin:=1;for i:=2 to 7 doif a[i]<min then beginmin:=a[i];nmin:=i;end;max:=a[1];nmax:=1;for i:=2 to 7 doif a[i]>max then beginmax:=a[i];nmax:=i;end;sum:=min+max;writeln('min=',min, ' N=',nmin);writeln('max=',max, ' N=',nmax);writeln('sum=',sum);end.