пожалуйста помогите очень надо!!!

В массиве храниться информация о стоимости товаров. Составьте программу, которая определяет стоимость самого дешевого(дорогого) товара и его индекс.

вот программа но в ней где-то ошибка

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]<min then min:=a[i];

writeln('a[',i,']=',a[i]);

max:=a[i];

for i:=2 to 10 do

if a[i]>max then max:=a[i];

writeln('a[',i,']=',a[i]);

end. 

 

...

writeln('a[',i,']=',a[i]);

readln;

end.

min і max нужно присвоить а[1].