Найти и вывести номера строк матрицы, первый и последний элементы которых имеют нулевые значения

var
  C: array[1..20, 1..20] of integer;
  n, m, i, j: integer;
  
begin
  write(' n = ');
  readln(n);
  write(' m = ');
  readln(m);
  writeln;
  writeln('Введите матрицу ', n, 'x', m, ':');
  writeln;
  for i := 1 to n do
  begin
    for j := 1 to m do
      read(c[i, j])
  end;
  writeln;
  writeln('Результат:');
  for i := 1 to n do
      if (c[i, 1] = 0) and (c[i, m] = 0) then write(' ', i);
end.

var
  C: array[1..20, 1..20] of integer;
  n, i, j, k: integer;
  Arifm: real;
  
begin
  write(' n = ');
  readln(n);
  writeln;
  writeln('Введите матрицу ', n, 'x', n, ':');
  writeln;
  Arifm := 0; //сумма отрицательных элементов главной диагонали.
  k := 0; //и их количество сначала равны 0
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      read(c[i, j]);
      if i = j then //элементы главной диагонали
        if c[i, i] < 0 then //отрицательный элем. главн. диагонали
        begin 
          inc(k); //увеличиваем количество
          Arifm := Arifm + c[i, j] //увеличиваем сумму 
        end 
    end  
  end;
  writeln('Результат:');
  if Arifm < 0 then write((Arifm / k):0:4)
  else write(' гдавная диагональ не имеет отрицательных элементов.')
end.