Заполнить одномерный массив(кол-во чисел n<=15)случайными целыми числами,по модулю непревыщаюшщими 10.Найти минимальный элемент в массиве, его индекс, а так же сумму элементов массива.Помогите пожалуйста 

Program Program1;Vara:array [1..15] of integer;i,min,Nmin,sum:integer;beginrandomize;writeln('Массив:');for i:=1 to 15 dobegina[i]:=random(20)-10;writeln('a[',i,']=',a[i]);end;sum:=0;Nmin:=1;min:=a[Nmin];for i:=1 to 15 dobeginsum:=sum+a[i];if min>a[i] thenbeginmin:=a[i];Nmin:=i;end;end;writeln;writeln('Минимальный элемент в массиве: ',min,' его индекс: ',Nmin,' Сумма элементов массива: ',sum);end.