матрица, найти строку и заменить, паскаль

[bifshtex]

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

знаю, что задача легкая, я все сделал, только вот один вопрос(он наверно очень глупый...):
как заменить строки...

[Asix]

Просто прогнать всю матрицу и заменить все символы в строках (4-ех) соответстующими коэффициентам в минимальной строке. А в каком виде у Вас представленна матрицы (двумерный или одномерный массив) ??

[privatnebank]

Немного криво, но вроде работает. Может кто-нить подправит...

Код: (Turbo Pascal) [Выделить]

program bif;
  var
  a: array [1..5,1..5] of Integer;
  i,j,k: Integer;
  indeksstroki, chislonyleyvstroke: Integer;
  begin
  randomize;
  WriteLn('Дан такой массив:');
  {Наполняем массив числами}
  for i:=1 to 5 do
      for j:=1 to 5 do  a[i,j]:=random(10);
  {Выводим массив на экран}
  for i:=1 to 5 do
      begin
      for j:=1 to 5 do
           Write(a[i,j]:3,' ');
           WriteLn
      end;
  {Ищем строку с набольшим количеством нулей и
  запоминаем индекс этой троки}
  chislonyleyvstroke:=0; {Устанавливаем начальное число нулей в Нуль}
  indeksstroki:=0;       {тоже самое для строки}
  for i:=1 to 5 do
      begin
      k:=0;                 {Счетчик}
      for j:=1 to 5 do   {каждый элемент строки}
      if (a[i,j]=0) then inc(k);     {проверяем на равенство нулю и если такие есть - запоминаем}
      if chislonyleyvstroke<k then   {и если запомненное число нулей больше начального}
                                  begin
                                  chislonyleyvstroke:=k; {запоминаем это число}
                                  indeksstroki:=i;           {и индекс строки}
                                  end
      end;
  if  indeksstroki=0 then WriteLn('Нулей в массиве нет')
  else
  begin
       WriteLn('Строка: ',indeksstroki,'; Число нулей: ',chislonyleyvstroke );
       ReadLn;
       {Заменяем все строки на строку с наибольшим числом нулей}
       for i:=1 to 5 do
           for j:=1 to 5 do a[i,j]:=a[indeksstroki,j];
           {И выводим окончательный результат}
           WriteLn('Результат:');
           for i:=1 to 5 do
               begin
                    for j:=1 to 5 do
                    Write(a[i,j]:3,' ');
                    WriteLn
               end;
        end;
  ReadLn;
  end.


[bifshtex]

двумерный массив у меня=)
спасибо предыдущему отправителю)