Рассчитать количество свободных мест в 4 ряду кинотеатра по матрице 10х6 числа выбрать рандомом(паскаль)

var ma:array[1..10,1..6] of integer; i,j,k:integer; begin; randomize; writeln('Matrix:'); for i:=1 to 10 do  begin;   writeln;    for j:=1 to 6 do     begin;      ma[i,j]:=random(2);      write(ma[i,j]:4);     end;  end; for j:=1 to 6 do  begin;   i:=4;   if ma[i,j]=0 then inc(k);  end; writeln; write('Result:',k); end.