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

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]lt;min then beginmin:=a[i];nmin:=i;end;max:=a[1];nmax:=1;for i:=2 to 7 doif a[i]gt;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.