Найти в матрице C(n1×n2) первую строку, все элементы которой равны нулю

VAR
c:array of array of integer;
i,j,n1,n2,num:Integer;
 
begin
...
SetLength(a, n1, n2);
...
num := 0;
for i:=n1-1 downto 0 do
for j:=n2-1 downto 0 do begin
    if c[i,j]<>0 then break;
    if (j=0) and (c[i,j]=0) then num:=i;
    end;
if num = 0 then begin
//если нету таких, то выход их процедуры
 
   exit;
   end;
...//если есть

var
  Form1: TForm1;
  c:array of array of integer;
  n1,n2:Integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
i,j:Integer;
begin
n1 := StrToInt(Edit1.Text);
n2 := StrToInt(Edit2.Text);
SetLength(c, n1, n2);
StringGrid1.RowCount := n1;
StringGrid1.ColCount := n2;
randomize;
for i := 0 to n1-1 do
for j := 0 to n2-1 do begin
    c[i,j] := random(5);
    StringGrid1.Cells[j,i] := IntToStr(c[i,j]);
    end;
 
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
i,j:integer;
begin
i := StrToInt(Edit3.Text);
for j := 0 to n2-1 do begin
    c[i,j] := 0;
    StringGrid1.Cells[j,i] := '0';
    end;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
var
i,j,num,count:Integer;
begin
label4.Caption := '';
num := -1;
i := 0;
  repeat
        j := 0;
        count := 0;
        while (j<=n2-1) do begin
              if c[i,j] = 0 then inc(count);
              inc(j);
              end;
        if count = n2 then num := i;
  inc(i);
  until (num >= 0) or (i = n1);
 
if num = -1 then label4.Caption := 'Нет нулевых строк' else
label4.Caption := 'первая нулевая строка = ' + IntTostr(num);
end;