Определить номера вагонов, в которых есть свободные места

uses crt;
type
 mas=array[1..5,1..5] of integer;
var
kol1,kol2,i,j,k,l,min:integer;
x:mas;
begin
clrscr;
randomize;
 l:=1;
 min:=1;
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
 x[i,j]:=random(20);
 write(x[i,j]:4);
end;
 writeln;
end;
  writeln('Ââåäèòå íîìåð âàãîíà');
  readln(i);
  writeln('Ââåäèòå ìåñòî');
  readln(j);
if x[i,j]=1 then writeln('ìåñòî çàíÿòî') else if x[i,j]>0 then x[i,j]:=1;
begin
for i:=1 to 5 do
begin
for j:=1 to 5 do
 if x[i,j]=0 then
begin
 l:=i;
 writeln(' íîìåðà âàãîíîâ, â êîòîðûõ åñòü ñâîáîäíûå ìåñòà',i:2);
end;
end;
end;
kol1:=0;
for i:=1 to 5 do
for j:=1 to 5 do
if x[i,j]=0 then kol1:=kol1+1;
writeln('îáùåå êîëè÷åñòâî ñâîáîäíûõ ìåñò',kol1:2);
begin
for i:=1 to 5 do
begin
kol2:=0;
for j:=1 to 5 do
begin
if x[i,j]=0 then kol2:=kol2+1;
if kol2<min then
begin
 l:=i;
 kol2:=min;
 end;
end;
end;
writeln('¹ âàãîíà',l:2,' ÷èñëîì ñâîáîäíûõ ìåñò',min:2);
end;
end.

uses crt;
var a:array[1..18,1..37] of integer;
i,j:byte; k,min:integer;
begin
For i:=1 to 18 do
  begin
   For j:=1 to 36 do
    begin
     a[i,j]:=random(2);
     write (a[i,j]:2);
     If a[i,j] = 0 then k:=k+1;
     a[i,37]:=a[i,37]+a[i,j];
   end;
  Writeln;
  end;
Writeln;
Writeln ('Íîìåðà âàãîíîâ ãäå åñòü ñâîáîäíûå ìåñòà: ');
For i:=1 to 18 do
 For j:=1 to 36 do
   If a[i,j] = 0 then begin write(i,'  '); break; end;
Writeln;
Writeln ('Âñåãî ñâîáîäíûõ ìåñò ', k);
min:=100;
For i:=1 to 18 do
  If min>36-a[i,37] then min:=36-a[i,37];
If min<=0 then min:=0;
Writeln ('Ìèíèìàëüíîå êîëè÷åñòâî ñâîáîäíûõ ìåñò ',min);
Writeln ('Ìèíèìàëüíîå êîëè÷åñòâî ñâîáîäíûõ ìåñò â âàãîíå\àõ: ');
For i:=1 to 18 do
 If 36-a[i,37] = min then write (i,'  ')
end.