Для заданной квадратной матрицы сформировать одномерный массив из ее диагональных элементов. Найти след матрицы, суммируя элементы одномерного массива. Преобразовать исходную матрицу по правилу: четные строки разделить на полученное значение, нечетные оставить без изменения — Pascal(Паскаль)

uses crt;
var
a:array[1..50,1..50] of byte;
n,i,j:byte;
begin
clrscr;
repeat
write('Vvedite chetnoe n=');
readln(n);
until n mod 2=0;
writeln('Matrica:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if (i<=n div 2) and((j<=i)or(j>=n-i+1))then a[i,j]:=1
    else if (i> n div 2)and(j<=n-i+1)then a[i,j]:=i+j-1
    else a[i,j]:=0;
    write(a[i,j]:3);
   end;
  writeln;
 end;
readln
end.