рассчитать количество свободных мест в 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.