ПОМОГИТЕ Создать массив по задачи которая дана .имеется целочисленный массив состоящий из 15 элементов . найти минимальный элемент и его индекс.

Не за что, надеюсь в ответ тоже будет благодарность. Прикреплен еще исходник varn,i,min,c:integer; a:array [1..100] of integer; begin n:=6;for i:=1 to n do begin writeln ('vvedi element massiva'); readln (a[i]); end; min:=a[1]; c:=1; for i:=2 to n do begin if min>a[i] then begin min:=a[i];c:=i; end; end; writeln ('min=', min, ' nomer=',c); readln; end.