Даны 2 массива из n элементов.нужно сравнить сумму массивов,вывести на экран если массивы равны,а если не равны, то каком в каком из них сумма больше?
задачу практически решила,только вот немного запуталась
помогите найти ошибку пожалуйстаа
var a:array of integer;
b:array of integer; i:integer;
s,d,f,n,k:integer;
begin
writeln ('vvedite n');
readln (n);
setlength (a,n);
setlength (b,n);
randomize;
s:=0;d:=0; f:=0; for
for k:=0 to n-1 do
begin
a[i]:=random(100);
b[i]:=random(100);
if a[i]=b[i] then f:=f+1;
end;
if f=n-1 then writeln ('massivy ravny')
else
begin
for k:=0 to n-1 do
begin
s:=s+a[i]; d:=d+b[i]; end;
if s>d then
writeln ('summa bolshe v massive a')
else
writeln ('summa bolshe v massive b');
end;
readln;
end.