По заданному номеру вагона распечатать номера свободных мест - Pascal ABC

Формулировка задачи:

В поезде 18 вагонов по 30 мест в каждом. Информация о проданных на поезд билетах хранится в двумерном массиве, номера строк которого соответствуют номерам вагонов, а номера столбцов - номерам мест. Если билет на место продан, то соответствующий элемент имеет значение 1, если свободен, то 0. Написать программу, которая по заданному номеру вагона распечатывает номера свободных мест. Начал писать, но не выходит:

var a:array[1..18,1..30] of integer;
    k,n,m,i,j:integer;
begin
n:=18;
m:=30;
writeln('Исходный массив');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(2);
    write(a[i,j]:3);
   end;
  writeln;
 end;
 writeln('Введите номер вагона '); readln(k);
 for i:=1 to n do
   begin
     for j:=1 to m do
     begin
      if a[i,j]=0 then
       writeln('В ',k,' вагоне ',,'-е место свободно');
      end;
      writeln; 
   end;
 end.

Не знаю как выводить свободные места.

Решение задачи: «По заданному номеру вагона распечатать номера свободных мест»

Листинг программы

WriteLn('Введите номер вагона:');
ReadLn(k);
Write('Свободные места в ',k,'-м вагоне: ');
for j:=1 to m do
  if a[k,j]=0 then Write(j:1,' ');
WriteLn;

Объяснение кода листинга программы

В данном коде происходит следующее:

Выводится сообщение «Введите номер вагона:», после чего пользователю предлагается ввести номер вагона с клавиатуры.
Введенный номер вагона сохраняется в переменной k.
Выводится сообщение «Свободные места в », после чего выводится номер вагона k.
Затем идет цикл for, который выполняется столько раз, сколько строк в массиве a[]. Если значение a[k,j] равно нулю, то выводится номер j.
После завершения цикла выводится символ новой строки, чтобы перейти к следующему выводу.