Даны 2 массива из n элементов.нужно сравнить сумму массивов,вывести на экран если массивы равны,а если не равны, то каком в каком из них сумма больше? задачу практически решила,только вот немного запуталасьпомогите найти ошибку...

Даны 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.