задача с одномерными массивами...., нужна помощь... Опции

[ginga]

Вот такая задача вот....помогите плиз сделать очень срочно нужно....

Даны массивы а(10), в (4), с (7).В каждом массиве заменить минимальный элемент произведением элементов соответственного массива. Элементы каждого массива можно брать любые. В скобках это кол-во эл-ов в каждом массиве.

Пожалуйста помогите!!!!!!

[ginga]

ну вот чуток потделал как ты сказала.....подредоктировал код....возможно что то и не правлильно((((
просмотри плиз!и по возможности подскажи что дальше нужно сделать(((

Program massivi;
const n=10; m=7; l=-2;
var
a: array [1..n] of integer;
b: array [4..m] of integer;
c: array [-9..l] of integer;
i, p, min : integer;
begin
for i:= 1 to n do readln(a[i]);
p:= a[1];
 min := a[1];
 for i:= 1 to n do 
begin
p:=p*(a[i]);
     if a[i]<a[min] then min := i;
     a[min]:=p;
end;


for i:= 1 to n do readln(b[i]);
p:= b[4];
 min := b[4];
 for i:= 4 to m do 
begin
 p:=p*(b[i]);
     if b[i]<b[min] then min := i;
     b[min]:=p;
end;


for i:= 1 to n do readln(c[i]);
p:=0;
 min := c[-9];
 for i:= -9 to n do 
begin
 p:=p*(c[i]);
     if c[i]<c[min] then min := i;
     c[min]:=p;
end;