Задачка. Составить 2 массива с схожим количеством элементов по правилу: 1

Сумма элементов рассчитывается через цикл, а затем результат выводится на экран.

var
A:array[1..5] of integer;
B:array[1..7] of integer;
sum_of_A:integer;
sum_of_B:integer;

begin

write(Массив А:);
for i:integer:=1 to 5 do
begin
A[i]:=random(20);
write(A[i]:5);
sum_of_A:=sum_of_A+A[i];
end;

writeln;

write(Массив В:);
for i:integer:=1 to 7 do
begin
B[i]:=random(20);
write(B[i]:5);
sum_of_B:=sum_of_B+B[i];
end;
writeln;
writeln(Разность суммы частей массива А и В = , sum_of_A-sum_of_B,.);

end.