Определить номер первого из столбцов матрицы, содержащих хотя бы один нулевой элемент

uses crt;
const m=10;
      n=15;
type matr=array[1..m,1..n] of integer;
var f:boolean;
procedure vvod(var a:matr);
var i,j:integer;
begin
clrscr;
for i:=1 to m do
for j:=1 to n do
a[i,j]:=-10+random(21);
writeln('Матрица создана');
f:=true;
writeln('Нажмите Enter');
readln
end;
function nomer(a:matr):integer;
var i,j,k:integer;
begin
clrscr;
if not f then
 begin
  writeln('Матрица еще не создана, вернитесь к пункту 1');
  writeln('Нажмите Enter');
  readln;
  exit;
 end;
writeln('Исходная матрица');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
j:=1;
k:=0;
while(j<=n)and(k=0) do
 begin
  i:=1;
  while(i<=m)and(k=0) do
  if a[i,j]=0 then k:=j
  else inc(i);
  if k=0 then inc(j);
 end;
nomer:=k;
end;
procedure peres(a:matr;var b:matr);
var i,j,k,x:integer;
    s:array[1..m]of integer;
begin
clrscr;
if not f then
 begin
  writeln('Матрица еще не создана, вернитесь к пункту 1');
  writeln('Нажмите Enter');
  readln;
  exit;
 end;
writeln('Исходная матрица');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
b:=a;
for i:=1 to m do
 begin
  s[i]:=0;
  for j:=1 to n do
  if (b[i,j]<0)and(a[i,j] mod 2=0)then s[i]:=s[i]+a[i,j];
 end;
for i:=1 to m-1 do
for j:=i+1 to m do
if s[i]<s[j] then
for k:=1 to n do
 begin
  x:=a[i,k];
  b[i,k]:=b[j,k];
  b[j,k]:=x;
  x:=s[i];
  s[i]:=s[j];
  s[j]:=x;
 end;
writeln('Строки по убыванию характеристик');
writeln('Характеристика':n*4+13);
for i:=1 to m do
 begin
  for j:=1 to n do
  write(b[i,j]:4);
  writeln(s[i]:6);
 end;
writeln('Нажмите Enter');
readln
end;
 
var a,b:matr;
    w:char;
    k:integer;
begin
f:=false;
repeat
clrscr;
writeln('Выберите действие');
writeln('1-Создать новую матрицу');
writeln('2-Определить номер столбца с 0');
writeln('3-Переставить строки');
writeln('другое-выход');
readln(w);
case w of
'1':vvod(a);
'2':begin
    k:=nomer(a);
    if k=0 then writeln('В матрице нет нулей')
    else writeln('Номер первого столбца с нулем=',k);
    writeln('Нажмите Enter');
    readln
    end;
'3':peres(a,b);
else exit;
end;
until not(w in ['1'..'3']);
end.