В зрительном зале 25 рядов по 36 кресел. Информация о проданных билетах записана в двухмерный массив-номера строк соответствуют номерам рядов, номера столбцов соответствуют номерам кресел. проданному билету соответствует значение элемента массива равное единице в противном случае 0. Составить программу, определяющую число проданных билетов на местах в 12 ряду- Pascal(Паскаль)

const
  n: integer = 12;//Riad v kotorom s4itaem
var
  i, j, cnt: integer;
  kinozal: array[1..25, 1..36] of integer;
begin
  Randomize;
  cnt := 0;
  for i := 1 to 25 do //Riad
  begin
      for j := 1 to 36 do //Mesto
      begin
          kinozal[i, j] := Random(2);
          writeln(i, '-',  j, ' ', kinozal[i, j]);
          if (i = n) and (kinozal[i, j] = 1) then cnt := cnt + 1;
      end;// end of j
  end;// end of i
  writeln;
  writeln(cnt);
  readln;
end.