дан двумерный массив . Определить количество строк, в которых присутствует хотя бы один отрицательный элемент. Delphi 7

program q171000112;
{$APPTYPE CONSOLE}
var
i, j, k: integer;
a: array of array of integer;
begin
Write('M = ');
ReadLn(i);
Write('N = ');
ReadLn(j);
SetLength(a, i, j);
for i := Low(a) to High(a) do
for j := Low(a[i]) to High(a[i]) do
begin
Write('a[', i + 1, ', ', j + 1, '] = ');
ReadLn(a[i,j]);
end;
k := 0;
for i := Low(a) to High(a) do
for j := Low(a[i]) to High(a[i]) do
if a[i, j] < 0 then
begin
Inc(k);
Break;
end;
WriteLn('Count: ', k);
ReadLn;
Finalize(a);
end.