Вычислить сумму и разность двух заданных одномерных массивов размером n — Pascal(Паскаль)

uses crt;
const n=6;
var a,b:array[1..n] of real;
    i:integer;
    k,sum1,sum2,sum:real;
 begin
  ClrScr;
  Writeln('Введите массив а...');
   for i:=1 to n do
    begin
     Write('a[',i,']->');
     Readln(a[i]);
    end;
  Writeln('Введите массив b...');
   for i:=1 to n do
    begin
     Write('b[',i,']->');
     Readln(b[i]);
    end;
 Writeln('-----------');
 k:=0;
 sum:=0;
 sum1:=0;
 sum2:=0;
  for i:=1 to n do
   begin
    sum1:=sum1+a[i];
    sum2:=sum2+b[i];
    sum:=sum1+sum2;
    k:=sum1-sum2;
   end;
 Writeln('Сумма= ',sum:3:1);
 Writeln('Разность= ',k:3:1);
 Readln;
end.