матрица паскаль

[telle]

Хэлп!!!! As Soon As Possible!!
нужно заменить в прямоугольной матрице размерностью m^n строки содержащие хотя бы один не нулевой элемент заданным вектором. Причем количество элементов вектора может не совпадать с количеством элементов строки матрицы.
я уже практически отладил... только один вопрос остался каким образом можно проанализировать всю строку матрицы и затем заменить на вектор??? я сделал 'поэлементное' присваивание, но это не верно... работает то бишь только в основных случаях, когда вся строка содержит нулевые элементы или наоборот вся строка содержит ненулевые элементы...

program pr1;
uses crt;
var   A:array [1.100,1.100] of integer;
       c,b:array [1..100] of integer;
       i,j,j,n,m,k
  begin
    clrscr;
    writeln('введи количество элементов строк');
    read(m)
    writeln('введи количество элементов столбцов');
    read(n);
    writeln('введи элементы матрицы');
     {создание матрицы}
     For i:=1 to n do
       begin
         For j:=1 to m do
          begin
            read(a[i,j]);
            write (a[i,j]);
          end;
       writeln;
      end;
   writeln ('введи количество элементов вектора');
   read(k);
   writeln ('введи элементы вектора');
    {строю из заданного вектора b вектор c, на который и буду заменять строки в матрице}
   For j:=1 to n do 
     begin 
      read('b[i]');
       if k=n  then c[j]:=b[i]
                else begin if k>n  then begin k:=n;
                                                      c[j]:=b[i];
                                               end;
                                        else begin if k<n then For i:=1 to n do
                                                                      begin
                                                                         c[j]:=b[i];
                                                                         if j>k then c[j]:=0
                                                                         write(c[j]);
                                                                      end; 
                                              end;
 
   end;
 {заменяю строки на вектор}
For i:=1 to n do
   begin
     For j:=1 to m do
      begin  
         if a[i.j]<>0 then a[i.j]:=c[j]; {вот здесь самое интересное}
      end;
     writeln; 
   end;     
readkey;
end.

[Анатолий111]

Вам её нужно решить именно в теле основной программы или можно применяя подпрограммы(процедуры и функции) ?

[telle]

нужно решить в теле основной программы...