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

uses crt;
var x:array[1..100]of real;
    n,i,k:integer;
begin
clrscr;
randomize;
write('n=');readln(n);
k:=0;
for i:=1 to n do
  begin
    x[i]:=10*random-5;
    x[n]:=-10*random;
    if x[i]<0 then k:=k+1;
    write(x[i]:6:2);
  end;
writeln;
writeln('Kol otr=',k);
writeln;
writeln('Pereschitannyj massiv:');
for i:=1to n do
  begin
    if x[i]>0 then x[i]:=x[i]/x[i+1];
    write(x[i]:6:2);
  end;
readln
end.