матрица паскаль. Плиз хелп!!!

[telle]

помогите решить задачу!! В прямоугольной матрице размером м на н заменить заданным вектором строки,содержащие хотя бы один ненулевой элемент. Количество элементов вектора равно количеству элементов строки матрицы.

[HoLToFF]

program Massivs;

const
  n = 5;
  m = 10;
var A:array[1..n,1..m] of integer;
    v:array[1..m] of integer;
    i,j:integer;

begin
randomize;
writeln('Massiv imeet vid:');
for i:= 1 to n do
  begin
  for j:= 1 to m do
    begin
    A[i,j]:=random(20);
    write(A[i,j]:2,' ');
    end;
  writeln;
  end;

writeln;
writeln('Vektor:');
for i:=1 to m do
  begin
  v[i]:=random(20);
  write(v[i]:2,' ');
  end;

i:=1;
while i <=n do
begin
j:=1;
  while j <= m do
    begin
    if A[i,j] = 0 then
      begin
      for j:=1 to m do
      A[i,j]:=v[j];
      j:=m;
      end;
    inc(j);
    end;
inc(i);
end;

writeln;
writeln;
writeln('Izmnenui massiv:');

for i:= 1 to n do
  begin
  for j:= 1 to m do
  write(A[i,j]:2,' ');
  writeln
  end;
readln;
end.