Определить сумму, произведение, сумму квадратов элементов массива

Uses
 CRT;
Var
 a:array[1..100] of integer;
 i,n:integer;
 sum,pr,sumk,sum6:real;
Begin
repeat
 write('N: ');
 readln(n);
until n in [7..100];
randomize;
sum:=0;
pr:=1;
sumk:=0;
sum6:=0;
for i:=1 to n do
begin
 a[i]:=random(10)-3;
 write(a[i]:3);
 sum:=sum+a[i];
 pr:=pr*a[i];
 sumk:=sumk+(a[i]*a[i]);
  if i<=6 then
   sum6:=sum6+a[i];
end;
writeln;
write('Sum:=',sum,'; Sumk:=',sumk,'; Pr:=',pr,'; Sum6:=',sum6);
readln
End.

uses crt;
const n=10;
var a:array[1..n] of integer;
    i,sum,proizved,sumkv,sum6:integer;
begin
proizved:=1;
write('Массив ');
              for i:=1 to n do
                  begin
                       a[i]:=random(10);
                       write(a[i],' ');
                       sum:=sum+a[i];
                       proizved:=proizved*a[i];
                       sumkv:=sumkv+sqr(a[i]);
                  end;
writeln;
        for i:=1 to 6 do
            sum6:=sum6+a[i];
writeln('Сумма всех элементов ',sum);
writeln('Произведение всех элементов ',proizved);
writeln('Сумма квадратов всех элементов масива ',sumkv);
writeln('Сумма шести первых элементов массива ',sum6);
end.