Pascal. Массивы

[Vadislav]

Задача:
Даны два массива. Сложить отдельно все элементы первого массива и отдельно все элементы второго с выводом на экран. Сумму большего массива вывести на экран.

program massiv;
var
sum2,sum1,i,f:integer;
a:array[0..2] of integer;
b:array[0..2] of integer;
begin
sum1:=0;
writeln('Vvedite elementi 1 massiva');
for i:=0 to 2 do read(a[i]);
sum1:=sum1+a[i];
writeln('Vvedite elementi 2 massiva');
sum2:=0;
for f:=0 to 2 do read(b[f]);
sum2:=sum2+b[f];

writeln('Summa elementov 1 massiva: ',sum1);
writeln('Summa elementov 2 massiva: ',sum2);

if sum1>sum2 then writeln('Summa naibolchego: ',sum1)
else writeln('Summa naibolchego: ',sum2);
read;
end.

Где ошибка? Подскажите пожалуйста