Question

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

Answer 1

Решение задачи в файле (есть .pas и .txt версии)

b30c7ab447c499a9141239ad4b2e699e.pas

bf9f2870fb815ff263364818e9e40c73.txt