дана матрица C(7,7) в строках с отрицательным элементом на главной диагонали найти сумму всех элементов

program Lab2_7;
type T=array[1..7,1..7] of real;
var C:T;i,j,k:integer;S:real;
begin
write('введите элементы массива');
for i:=1 to 7 do
for j:=1 to 7 do
readln(C[i,j]);
S:=0;    k:=0;
 
for i:=1 to 7 do
for j:=1 to 7 do
 
if (C[i,j]<0)and (i=j) then S:=S+1;
writeln('Нет отрицательных элементов',s);
readln;
 
end.

program Lab2_7;
type T=array[1..7,1..7] of real;
var C:T; i,j,s:integer;
begin
   writeln('ââåäèòå ýëåìåíòû ìàññèâà');
   for i:=1 to 7 do
      for j:=1 to 7 do
         readln(C[i,j]);
   s:=0;
   for i:=1 to 7 do
      for j:=1 to 7 do
         if (C[i,j]<0) and (i=j) then S:=S+1;
   if s>0 then  writeln('Êîëè÷åñòâî îòðèöàòåëüíûõ:',s)
      else writeln('Îòðèöàòåëüíûõ ýëåìåíòîâ â ãëàâíîé äèàãîíàëè íåò');
 
end.

program Lab2_7;
type T=array[1..3,1..3] of real;
var C:T; i,k,j:integer;   s:real;
begin
   writeln('введите элементы массива');
   for i:=1 to 3 do
      for j:=1 to 3 do
         readln(C[i,j]);
   s:=0;
   for i:=1 to 3 do
   begin
      for j:=1 to 3 do
         if (C[i,j]<0) and (i=j) then
         begin
         k:=i;
         i:=k;
         for j:=1 to 3 do
         S:=s+c[i,j];
         end;
      if s<>0 then  writeln('Сумма отрицательных ',i,' строки= ',s)
      else writeln('На ',i,' строке нет отрицательного на главной диагонале');
         s:=0;
         end;
end.