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

procedure TForm1.Button1Click(Sender: TObject);
var i,j,mini,maxi : integer;
k, n: integer;
a: array[1..10,1..5] of double;
max, min: double;
str: string;
begin
randomize;
n := 0;
k := 0;
//
for i := 1 to 10 do
for j := 1 to 5 do
a[i,j] := random(101) - 50;
//
 
Memo1.Lines.Add('Ìàòðèöà äî ïðåîáðàçîâàíèé:');
for i := 1 to 10 do begin
str := '';
for j := 1 to 5 do str := str + FloatToStr(a[i,j]) + ' ';
Memo1.Lines.Add(str);
end;
//
for i := 1 to 10 do begin
k := 0;
for j := 1 to 5 do
if a[i,j] = 0 then inc(k);
if k = 0 then inc(n);
end;
//
Memo1.Lines.Add('Êîë-âî ñòðîê íå ñîäåðæàùèõ íè îäíîãî íóëåâîãî ýëåìåíòà: ' + IntToStr(n));
//
max := a[1,1];
for i := 1 to 10 do
for j := 1 to 5 do
if a[i,j] >= max then begin
max := a[i,j];
maxi := i;
end;
//
min := a[1,1];
for i := 1 to 10 do
for j := 1 to 5 do
if a[i,j] <= min then begin
min := a[i,j];
mini := i;
end;
for j := 1 to 10 do
a[maxi,j] := 0;
for j := 1 to 10 do
a[mini,j] := 0;
Memo1.Lines.Add('Ìàòðèöà ïîñëå ïðåîáðàçîâàíèé:');
for i := 1 to 10 do begin
str := '';
for j := 1 to 5 do str := str + FloatToStr(a[i,j]) + ' ';
Memo1.Lines.Add(str);
end;
end;

for j := 1 to 5 do
a[maxi,j] := 0;
for j := 1 to 5 do
a[mini,j] := 0;