Ребята помогите пожалуйста написать программу в паскале " Для заданной квадратной матрицы 6*6 сформировать одномерный массив из ее диагональных элементов. Вывести исходный массив и результаты вычисления."

constn=6;vara:array[1..n,1..n]of integer;b:array[1..n]of integer;i,j:integer;begin   for i:=1 to n do        begin            for j:=1 to n do                begin                    a[i,j]:=random(100);                    write(a[i,j]:4);                    end;             b[i]:=a[i,i];             writeln;         end;writeln;for i:=1 to n do    write(b[i]:4);end.вариант главной и побочной диагонали в одномерный массивconstn=6;vara:array[1..n,1..n]of integer;b:array[1..n*2]of integer;i,j,k:integer;   begin       writeln;              for i:=1 to n do                      begin                            for j:=1 to n do                                   begin                                            a[i,j]:=random(100);                                             write(a[i,j]:4);                                    end;                                      k:=k+1;                                   b[k]:=a[i,i];                                   k:=k+1;                                   b[k]:=a[i,n+1-i];                              writeln;                          end;writeln;   for i:=1 to n*2 do            write(b[i]:4);end.