Я не понимаю как нужно правильно выводить строчку матрицы на экран (как это написать)?

[Julia1]

Вот программа в которой нужно ввести матрицу размером M*N и если в первой строке количество отрицательных элементов равно количеству положительных (ноль не учитывается), то нужно вывести эту строчку на экран если нет то на экран выводится ноль.

program Project1;
var
a: array[1..5,1..10] of integer;
n,m,i,j,k: integer;
f: boolean;
begin
write('Введите размеры массива n, m: ');
readln(n,m);
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(199)-99;
write(a[i,j]:4);
end;
writeln;
end;

for i:=1 to n do
begin
k:=0;
for j:=1 to m do
if a[i,j]>0 then k:=K+1
else k:=k-1;
if k=0 then
begin
f:=true;

end;
end;
i:=1;
if f then writeln('индекс искомой строки ',i) {вот как раз я вывожу индекс строки ,а как вывести строчку?}
else writeln('0');
readln;
end.

[BDA]

Без учета правильности приведенного кода (а правильность вызывает большие сомнения):

if t then
  for i := 1 to m do
    write(a[1, i], ' ')
  else
    write(0);