Получить элементы квадратной матрицы

program p1;
uses crt;
var a:array[1..10,1..10] of real;
    x:array[1..6] of real;
    n,j,i:integer;
    p,s,y:real;
begin
clrscr;
 writeln('vvedite kol-vo elementov  ');
readln(n);
{Proverka kolichestva elementov v stroke/stolbce}
if n<0 then
                 begin
                 writeln('kol-vo elementov >0 ');
                 writeln('vvedite drygoe znachenie');
                 readln(n);
                 end;
clrscr;
writeln('matrica');
{Zapolnyaem matrcy}
p:=1;
for i:=1 to n do begin
p:=p*(-2);
for j:=1 to n do begin
                 a[i,j]:=((j/2-3.1)*(i-3.9))/p;
                 end;
                 end;
  for i:=1 to n do
  begin
  for j:=1 to n do
 write(' ',a[i,j]:7:4,' ');
 writeln;
 end;
 writeln;
 writeln('vektor');
 {vbivodim vektor}
 for i:=1 to n do begin
                  s:=0;
                  for j:=1 to n do begin
                                   s:=a[i,j]+s;
                                   x[i]:=s/n;
                                   end;
                  write(' ',x[i]:7:4,' ');
                  end;
{Polychaem znachenie Y}
y:=1;
 for i:=1 to n do
               y:=y*x[i];
 y:=sqrt(abs(y));
 
 writeln;
 writeln(' ');
 writeln('Y=',y:6:4);
 readkey;
 
 end.