Работа с элементами столбца матрицы

[Ricci_Ricci]

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

[oxJass]

//это с квадратной матрицой

                             const sz = 10;      //размерность
   var
mx : array [1..sz,1..sz] of integer;

procedure ShowMatr;
  var
  i,j : integer;
  begin

    //--------------------------//
 for i := 1 to sz do begin
  for j := 1 to sz do begin
   write(inttostr(mx[i,j]) + '   ');
  end;
  writeln;
 end;
//--------------------------//

  end;

       var
  i,j : integer;
begin
 randomize;
//--------- Генерируем случайн. числа --//
      for i := 1 to sz do
  for j := 1 to sz do
   mx[i,j] := random(10);
//---------------------------------- -- //
ShowMatr;
// Вот сдесь мы ищем 0 и заменяем их на 1 элемент столбца.
 for i := 1 to sz do
   for j := 1 to sz do
     if mx[i,j]=0 then mx[i,j] := mx[1,j];
 writeln('------------------ ----------');
ShowMatr;
 readln;
 end.