Массив данных о стоимости товаров зададим в виде целочисленных констант
program primer_1;
const a: array[1..12] of integer = (170, 180, 25, 36, 750, 1, 45, 28, 39, 10, 11, 58);
i,min,k: integer;
begin
min:=a[1];
for i:=2 to 12 do if a[i]
begin
min:=a[i];
k:=i;
write('минимальная стоимость ', min, ' индекс' ,k)
end.
Или скорее всего этот вариант
program primer_1;
var a: array[1..12] of integer;
i, min, k: integer;
begin
for i:=1 to 12 do read(a[i]);{Ввод стоимостей товаров}
min:=a[1];
k:=0;
for i:=2 to 12 do
if a[i] then
begin
min:=a[i];
k:=i;
end;
write('мин. сто-мость ', min, ' индекс ' ,k)
end.