Двумерные массивы ( в паскаль) определить номер столбца в котором все элементы нулевые.

Const m=4; n=15; var   i,j,j0: integer;   a: array[1..m,1..n] of integer;   jexit,iexit: boolean; begin   randomize;   for i: =1 to m do begin       writeln;       for j: =1 to n do begin           a[i,j]: =random(2);           write(a[i,j]: 2)           end       end;   writeln;   j: =0; jexit: =false;   repeat       j: =j+1; i: =1; iexit: =false;       if a[i,j]=0 then begin           repeat               i: =i+1;               if a[i,j]< > 0 then iexit: =true           until iexit or (i=m);           if i=m then jexit: =true           end       until jexit or (j=n);   if a[i,j]=0 then writeln('нулевой столбец ',j)   else writeln('нет нулевых столбцов'); end. тестовый пример:   0 1 1 1 1 0 1 0 1 0 0 0 0 0 1   0 0 1 0 1 0 0 0 1 1 0 0 0 0 0   1 1 0 0 0 1 0 1 1 1 1 1 0 1 1   1 1 1 0 1 0 1 0 0 1 0 1 0 1 0 нулевой столбец 13

1)г 2)г 3)б если я правильно посчитал то вот так