Как сделать вывод количества билетов по номеру вагона?

Uses crt;{В поезде 18 вагонов, в каждом из которых 36 мест. 
Информация о проданных на поезд билетах хранится в двумерном массиве, 
номера строк которых соответствуют номерам вагонов, а номера столбцов—номерам мест.
Если билет на то или иное место продан, то соответствующий элемент массива имеет значение 1, 
в противном случае—0. Составить программу, определяющую число свободных мест в любом из вагонов поезда.}
const 
v = 18;
m = 36;
 
var
  a: array [1..50, 1..50] of integer;//Информация о проданных на поезд билетах хранится в двумерном массиве
  i, j, x: integer;  
  begin
    Writeln('Матрица из вагонов');
  for i := 1 to v do
  begin
    for j := 1 to m do
    begin
      randomize;
      a[i, j] := random(2);
      Write(a[i, j]:2);
    end;
    writeln;
  end;
  for i := 1 to v do
  begin
    x := 0;
    for j := 1 to m do
      if a[i, j] = 0 then inc(x);
    if x > 0 
    then 
     Writeln('Введите номер вагона');
     ReadLn(i);
    writeln('Вагон ', i, ' - Свободных мест в вагоне.', x);
  end;
end.