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

var
 a,b,c,i,j:integer;
 z:array [1..100,1..100] of integer;
 begin
  writeln('Введите размерность матрицы(строк/столбцов)');
  readln(a,b);
  for i:=1 to a do
   for j:=1 to b do
       begin
    writeln('Введите[',i,',',j,']элемент матрицы');
    readln(c6);
    z[i,j]:=c;
   end;
    
 for i:=1 to a do
  if (z[i,1]=z[i,b])and(z[i,1]=0)then writeln('В строке ',i,' первый и последний элемент=0');
    
 for i:=1 to a do
  begin
   for j:=1 to b do
    write(z[i,j]:2);
   writeln;
  end;
 end.

var
 a,b,i,j:integer;
 c,d:real;
 z:array [1..100,1..100] of integer;
 
 begin
  writeln('Введите размерность матрицы');
  readln(a);
  for i:=1 to a do
   for j:=1 to a do
   begin
    writeln('Введите[',i,',',j,']элемент матрицы');
    readln(b);
    z[i,j]:=b;
   end;
   
  for i:=1 to a do
   for j:=1 to a do
    if (i=j)and(z[i,j]<0)then begin c:=c+z[i,j]; d:=d+1; end;
  if (c<>0)and(d<>0)then c:=c/d else writeln('Главная диагональ матрицы не содержит отрицательных элементов');
    
 for i:=1 to a do
  begin
   for j:=1 to a do
    write(z[i,j]:3);
   writeln;
  end;
 if (c<>0)and(d<>0)then writeln('Среднее арифметическое отрицательных чисел главной диагонали=',c);
 end.