пожалуйста помогите очень надо!!! В массиве храниться информация о стоимости товаров. Составьте программу, которая определяет стоимость самого дешевого(дорогого) товара и его индекс. вот программа но в ней где-то ошибка program xxx; var a:array [1..10] of integer; i, max, min:integer; begin for i:=1 to 10 do read(a[i]); min:=1; for i:=2 to 10 do if a[i]max then max:=a[i]; writeln('a[',i,']=',a[i]); end.