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

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