Задан массив С1, С2,…,Сn. Нужно изменить все столбцы матрицы. в которых равен нулю элемент главной диагонали:i-й элемент столбца (i=1,2,…,n) увеличивается на Ci. Найти также сумму элементов главной диагонали — Pascal(Паскаль)

uses crt;
const n=5;
var c:array[1..n] of integer;
    a:array[1..n,1..n]of integer;
    i,j,k,sum:integer;
begin
clrscr;
writeln('Vvedite ',n,' elementov massiva:');
for i:=1 to n do
read(c[i]);
readln;
writeln;
writeln('Vvedite ',n*n,' elementov matricy:');
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);
readln;
clrscr;
writeln('Massiv:');
for i:=1 to n do
write(c[i],' ');
writeln;
writeln('Matrica:');
for i:=1 to n do
  begin
    for j:=1 to n do
    write(a[i,j]:4);
    writeln;
  end;
sum:=0;
for i:=1 to n do
if a[i,i]=0 then
for k:=1 to n do
a[k,i]:=c[k]
else sum:=sum+a[i,i];
writeln('Rezultat:');
for i:=1 to n do
  begin
    for j:=1 to n do
    write(a[i,j]:4);
    writeln;
  end;
writeln;
writeln('Summa=',sum);
readln
end.