Сформировать одномерный массив из диагональных элементов матрицы - Pascal

uses crt;
type mas=array[1..100,1..100] of real;
type mas2=array[1..100] of real;
var a:mas;
    b:mas2;
    i,j,n:integer;
    sum:real;
begin
  clrscr;
  write('Vvedite razmer matricy:');
  readln(n);
  writeln('Vvedite elementy matricy:');
  for i:=1 to n do
  for j:=1 to n do
  begin
    write('[',i,',',j,']:');
    readln(a[i,j]);
  end;
 
  writeln('Poluchennaja matrica:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      write(' ',a[i,j]:8:3);
    end;
    writeln;
  end;
  for i:=1 to n do
    b[i]:=a[i,i];
  writeln('massiv iz diagonalnyh elementov:');
  sum:=0;
  for i:=1 to n do
  begin
    write(' ',b[i]:8:3);
    sum:=sum+b[i];
  end;
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      if (i mod 2)=0 then a[i,j]:=a[i,j]/sum
                     else a[i,j]:=a[i,j];
    end;
  end;
  writeln;
  writeln('Summa elementov massiva:',sum:8:3);
  writeln('Konechnaja matrica:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      write(' ',a[i,j]:8:3);
    end;
    writeln;
  end;
  readln;
end.