Помогите с информатикой паскаль 8 класс

 program MatchOnes; 
var 
  N, M, i, j: Integer; 
  A: array[1..10, 1..10] of Integer; 
  rowCount, colCount: Integer; 
begin 
  { Считываем размеры массива } 
  ReadLn(N, M); 
  { Считываем сам массив } 
  for i := 1 to N do 
    for j := 1 to M do 
      Read(A[i, j]); 
 
  { Перебираем номера строк } 
  for i := 1 to N do 
  begin 
    { столбца с тем же номером может не быть, если i>M — тогда пропускаем } 
    if i > M then 
      Continue; 
 
    { Считаем единицы в i-й строке } 
    rowCount := 0; 
    for j := 1 to M do 
      if A[i, j] = 1 then 
        Inc(rowCount); 
 
    { Считаем единицы в i-м столбце } 
    colCount := 0; 
    for j := 1 to N do 
      if A[j, i] = 1 then 
        Inc(colCount); 
 
    { Если совпадает — выводим номер строки } 
    if rowCount = colCount then 
      Write(i, ' '); 
  end; 
 
  WriteLn; 
end.