массивы. паскаль

[lilok]

помогите пожалуйста, кто сможет решить задачу.
спасибо.

Даны два массива: А (10) и В (9) вещественных чисел. Найти и напечатать сумму значений элементов массива А и произведение значений элементов массива В. Увеличить каждый элемент массива имеющего наибольшее кол-во нулей на 10 и вывести измененный массив на экран.

[Z1000000]

program PrArray;
var
A : array [0..9] of Real;
B : array [0..8] of Real;
i : Integer ;
Summa,Mult : Real;
ANull,BNull : Integer;
begin
Randomize ;
for i := 0 to Length(A)-1 do
A[i] := -32768 + Random * (32767+32768 );
for i := 0 to Length(B)-1 do
B[i] := -32768 + Random * (32767+32768 );
Summa := 0;Mult := 1;
ANull := 0; BNull := 0;
for i := 0 to Length(A)-1 do
begin
Summa := Summa + A[i];
if A[i] = 0 then ANull := ANull + 1 ;
end ;
for i := 0 to Length(B)-1 do
begin
Mult := Mult * B[i];
if B[i] = 0 then BNull := BNull + 1 ;
end ;

writeln ( 'Summa of Elements of A: ',Summa);
writeln ( 'Mult of Elements of B: ',Mult);

writeln ('Array :');
if ANull >= BNull then
for i:= 0 to Length(A)-1 do writeln (A[i]+10,' ')
else
for i:= 0 to Length(B)-1 do writeln (B[i]+10,' ');

end.