Найти сумму значений элементов массива

var A:array [1..10] of integer;
    B:array [1..10] of real;
    sumA,i,Bn,An:integer;
    sumB,min:real;
begin
//Ввод массива А
//Размер массива А
writeln('Введите длинну массива А');
readln(An);
writeln('Введите элементы массива А');
//Ввод элементов массива A
For i:=1 to An do
  read(A[i]);
//Ввод массива B
//Размер массива B
writeln('Введите длинну массива B');  
readln(Bn);
writeln('Введите элементы массива B');
//Ввод элементов массива B
For i:=1 to Bn do
  read(B[i]);
suma:=0;
sumb:=0; 
//Находим суммы массивов А и B 
For i:=1 to An do
  sumA:=sumA+A[i];  
For i:=1 to Bn do
  sumB:=sumB+B[i];
writeln('Сумма массива А = ',suma,'Сумма массива B = ',sumb);
//Находим наименьшую сумму.
If sumA<sumB then min:=sumA 
else min:=sumb;
//Прибавляем наименьшую сумму к каждому элементу массива B
For i:=1 to Bn do
  B[i]:=B[i]+min;
writeln('Массив B');  
For i:=1 to Bn do
  write(B[i],' '); 
readln;
 
end.

var A:array [1..10] of real;
    C:array [1..10] of integer;
    kol1,kol0,i,Cn,An,maxC,vspomog:integer;
    maxA:real;
    flag:boolean;
begin
//Ввод массива А
//Размер массива А
writeln('Введите длинну массива А');
readln(An);
writeln('Введите элементы массива А');
//Ввод элементов массива A
For i:=1 to An do
  read(A[i]);
//Ввод массива c
//Размер массива C
writeln('Введите длинну массива C');  
readln(Cn);
writeln('Введите элементы массива C');
//Ввод элементов массива C
For i:=1 to Cn do
  read(C[i]);
kol0:=0;
kol1:=0; 
maxA:=A[1];
maxC:=C[i]; 
//Находим количество 0 в массиве А, заоодно и макс. элем. массива А
For i:=1 to An do
  begin
  If A[i] = 0 then kol0:=kol0+1; 
  If A[i]> maxA then maxA:=A[i];
  end;
//Находим количество 1 в массиве С, и макс. элем. массива С
For i:=1 to Cn do
  begin
  If C[i] = 1 then kol1:=kol1+1; 
  If C[i]> maxC then maxC:=C[i];
  end;
  //Производим сравнение количества 1 и 0.
If kol0=kol1 then 
  begin
  writeln('Количество 0 в массиве A равно количество 1 в массиве С и = ',kol1);
  writeln('Максимальный элемент массива A = ',maxA,' а массива С= ',maxC)
  end
else
//Если не раны kol1 и kol0 то сортируем массив С методом пузырька.
  begin
  repeat
  flag:=true;
  for i:=1 to Cn-1 do
    If C[i]>C[i+1] then 
      begin
      vspomog:=C[i];
      C[i]:=C[i+1];
      C[i+1]:=vspomog;
      Flag:=false;
      end;
  until Flag;
  writeln('Количество 0 в массиве A = ', kol0,' Количество 1 в массиве С = ',kol1);
  For i:=1 to Cn do
    write(C[i],' ');
  end;
readln;  
end.