Определить наименьшее среди произведений.Не могу разобраться( - Turbo Pascal

Формулировка задачи:

Вложение 603133 Определить наименьшее из произведений Где-то ошибка:

const x=10;
Var
 
 A,C:array[1..x] of integer;
    i,min,n,m:integer;
begin
     writeln('Введите n ');
     readln(n);
    m:=n;
     writeln('Введите массив A');
     for i:=1 to n do
     readln(A[i]);
     writeln('Введите массив С');
    for i:=1 to n do
     readln(C[i]);
    if m=1 then min:=A[1]+C[1];
writeln;
     writeln('Наименьшее значение =',min);
     readln;
end.

Решение задачи: «Определить наименьшее среди произведений.Не могу разобраться(»

Листинг программы

const x=10;
Var A,C:array[1..x] of integer;
    m,i,p,min:integer;
begin
writeln('Введите m ');
readln(m);
writeln('Введите массив A');
for i:=1 to m do
readln(A[i]);
writeln('Введите массив С');
for i:=1 to m do
readln(C[i]);
p:=A[1]+C[1];
min:=p;
for i:=2 to m do
 begin
  p:=p*(A[i]+C[i]);
  if p<min then min:=p;
 end;
writeln;
writeln('Наименьшее значение =',min);
readln;
end.

Объяснение кода листинга программы

В данном коде на языке Turbo Pascal пользователь вводит количество элементов массивов A и C. Затем программа запрашивает и сохраняет значения этих массивов. После этого вычисляется произведение первых двух элементов массивов A и C, и это значение сравнивается со всеми последующими произведениями. Если текущее произведение меньше предыдущего, оно заменяет предыдущее значение переменной min. В конце программа выводит на экран наименьшее значение.