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

program mas;
const n=5;
const m=6;
var A:array[1..n,1..m] of integer;
    S:array [1..n] of integer;   
    i,j,an,ak:integer;
    
    
begin
for i:=1 to n do
    for j:=1 to m do 
    readln(a[i,j]);
 
        for i:=1 to n do begin
              for j:=1 to m do begin
                  an:=0;
                  ak:=0;
                  if A[i,j]=0 then ak:=j;
                  end; 
                     for j:=ak downto 1 do begin
                         if A[i,j]=0 then an:=j;  
                                     end;
                                     end;
                                     
                                    
                             for i:=1 to n do begin
                               for j:=an to ak do begin 
                                 S[i]:=ak-an;
                                           end;
                                           writeln(S[i]);
                                           end;
                                           writeln ('S=', S[i]);
                                           end.

program mas;
const n=5;
const m=53;
var A:array[1..n,1..m] of integer;
    S:array [1..n] of integer;   
    c,i,j,an,ak:integer;
    
    
begin
c:=0;
for i:=1 to n do
    for j:=1 to m do  readln(a[i,j]);
 
        for i:=1 to n do begin
              for j:=1 to m do begin
                  an:=0;
                  ak:=0;
                  if A[i,j]=0 then begin
                  ak:=j;
                  c:=c+1;
                  end;
                  end; 
                     for j:=ak downto 1 do begin
                         if A[i,j]=0 then begin
                         an:=j;  
                         c:=c+1;
                                     end;
                                     end;
                              if c>=2 then begin
                                    
                             for i:=1 to n do begin
                               for j:=an to ak do begin 
                                 S[i]:=ak-an;
                                           end;
                                           writeln(S[i]);
                                           end;
                                           writeln ('S=', S[i]);
                                           end
 
                                           else begin
                                           S[i]:=-1;
                                                writeln ('i=', i, 'S=', S[i]);
                                                end;
                                                end;
                                                end.

const
  n = 5;
  m = 53;
var
  A: array[1..n, 1..m] of integer;
  S: array [1..n] of integer;   
  c, i, j, an, am: integer;
  f,f1: boolean;
begin
  // ввод элементов массива
  for i:=1 to n do
    for j:=1 to m do
    begin
      write('a[',i,',',j,'] = ');
      readln(a[i,j]);
    end;
    
  for i:=1 to n do
  begin
    f:=false;
    f1:=false;
    for j:=1 to m do
    begin
      c:=0;
      if (a[i,j]=0)and(f=false) then
      begin
        an:=j; //индекс первого нуля строки
        f:=true; //первый ноль существует
      end else
      if (a[i,j]=0)and(f) then
      begin
        am:=j; //индекс последнего нуля строки
        f1:=true; //второй ноль существует
      end;
    end;
    for j:=an+1 to am-1 do //элементы между нулями 
      if a[i,j]>0 then c:=c+1; // если полож-й увеличиваем счетчик
    if f1 then s[i]:=c else //если существует второй ноль - записываем количество положительных в массив S
    begin // если нет - выводим сообщение
      writeln('В ',i,'-й строке меньше 2 нулей');
      s[i]:=-1;
    end;
  end;
  // вывод массива S
  writeln('Массив B:');
  for i:=1 to n do write(s[i],' ');
end.

if (a[i,j]=0)and(f=false) then
      begin
        an:=j; //индекс первого нуля строки
        f:=true; //первый ноль существует
      end else
      if (a[i,j]=0)and(f) then
      begin
        am:=j; //индекс последнего нуля строки
        f1:=true; //второй ноль существует
      end;