Помогите пожалуйста не могу решить

Var a,i,sum:integer;
      x: array [1..12] of integer;
      z: array [1..12] of real;
begin
        for i:=1 to 12 do
             begin
                      x[i]:=random(20)+1;
                      writeln(x[,i,] = ,x[i])
              end;
         sum:=0;
         write(Введите а = ); readln(a);
         for i:=1 to 12 do sum:=sum+x[i]-a;
         for i:=1 to 12 do
             begin
                      x[i]:=sqr(x[i]);
                      z[i]:=sum/x[i]
             end;
          for i:=1 to 12 do writeln(z[,i,] = ,z[i])
end.