27 баллов! Больше не имею! Пожалуйста помогите! Проблема: Надо создать программу в…

Program dan777; const n=5; var a: array[1… n,1… n] of integer; b,c,k: integer; beginfor b: =1 to n dofor c: =1 to n do begina[b,c]: =random (20); write (a[b,c]: 3); if c=n then writeln; end; for c: =1 to n dofor b: =1 to n do begink: =k+a[b,c]; if b=n then beginwriteln ('Сумма',c,'-о столбца=',k); k: =0; end; end; end.