var
  Zal:array[1..25,1..36]of integer;
...
  n:=0;
  for i:=1 to 36 do n:=n+Zal[12,i];

  n:=0;
  for i:=1 to 36 do n:=n+Zal[12,i];

 for i:=1

for i:=1 to 36 do 

uses wincrt;
{Начнем по порядку. Массив 
Lapp естественно указал правильно. Тебе понадобятся еще три}
 {переменные: i - чтобы проходить циклом по креслам, j - чтобы проходить по рядам и k - количество}
{ проданных билетов}
var m: array[1..25,1..36] of integer;
      k,i,j: integer;
begin
  k:=0; {изначально количество проданных у нас равно 0}
      {Сначала надо создать массив из проданных и свободных кресел. Так как вводить с клавиатуры 900 мест}
{ достаточно проблематично))) предлагаю заполнить его с помощью функции random (генератор случайных }
{чисел):}
  randomize; {включаем генератор}
  for j:= 1 to 25 do         {в этих циклах компьютер проходит по каждому креслу каждого ряда}
     for i:=1 to 36 do
        begin
           m[j,i]:=random(2);      {а сдесь случайным образом задается  0 или 1}
        end;
  for i:=1 to 36 do         {пробегаем по креслам 12-го ряда}
      k := k + m[12, i];  {почему так, ниже объяснил 
volvo}
  writeln(k);   {выводим результат}
end.

for i:=1 to 36 do
  k := k + m[12, i];
writeln(k);

uses wincrt; 

uses crt;

program zadacha;
uses crt; 

Delay(10000);

Program zadacha;
var m: array[1..25,1..36] of integer;
      k,i,j: integer;
begin
  k:=0;
  randomize;
  for i:= 1 to 25 do
    begin
      write('ряд ',i,' ');   {сдесь выводим подряд}
      for j:=1 to 36 do
        begin
          m[i,j]:=random(2);
          write('',m[i,j],' '); {и тут}
        end;
      writeln;    {а тут переходим на новую строчку}
    end;
  for j:=1 to 36 do
    k := k + m[12, j];
    writeln('В 12 ряду ',k,' проданных билетов');
end.

Program zadacha;
uses crt;
var m: array[1..25,1..36] of integer;       {естественно массив и переменные, с ними ты уже наверно разобрался}
      k,i,j: integer;
begin
  k:=0;       {обнуляем количество проданных}  
  randomize;     {включаем генератор случайных чисел}
  for i:= 1 to 25 do        {это цикл со счетчиком, здесь он проходит по рядам} 
    begin
      write('ряд ',i,' ');   {оператор write выводит все в одну строку}
      for j:=1 to 36 do
        begin
          m[i,j]:=random(2);    {функция random генерирует целые числа в пределах 0<=x<диапазон,}
                                { а 2-йка тут - это и есть диапазон, начиная с нее числа не берутся}
          write('',m[i,j],' '); {опять вывод в строчку}
        end;
      writeln;    {оператор writeln каждый результат будет выводить на новой строчке}
    end;
  for j:=1 to 36 do  {опять цикл со счетчиком, только здесь идем по креслам}
    k := k + m[12, j];       {суммируем значения и получаем количество проданных}
    writeln('В 12 ряду ',k,' проданных билетов');        {выносим его на всеобщее обозрение)))}
end.

write(i:2, ':');

 Program zadacha;
uses crt;
var m: array[1..25,1..36] of integer;
      k,i,j: integer;
begin
  k:=0;       {obnulyaem kol-vo prodannih}
  randomize;
  write('   ');
  for i:= 1 to 36 do
  begin
  if i<10 then write (i,' ') else write(i);
  end;
  writeln;
  for i:= 1 to 25 do        {cikl so schtchikom prohodit po ryadam}
  begin
  if i <10 then
  write(i ,'  ')
  else write(i,' ');   {operator write vivodit vse v odnu stroku}
  for j:=1 to 36 do
  begin
  m[i,j]:=random(2);    {funkciya random generirue3t celie chisla v predelah 0<=x<diapazon,}
                                { a 2-yka eto diapazon, nachinaya s nee chisla ne berutsya}
  write('',m[i,j],' ');
  end;
  writeln;    
  end;
  for j:=1 to 36 do  {cikl so schetchikom po kreslam}
  k := k + m[12, j];       {summiruem znachenie i poluchaem kol-vo prodannih}
  writeln('v 12 ryadu ',k,' prodannih biletov');
readln;
end.