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

program _matrix;
 
const
 
 N = 5;
 M = 10;
 
type 
 
 TArray = Array [1..N,1..M] of integer;
 
var
 
 Matrix         :TArray;
 i,j            :integer;
 
procedure FillMatrix(var Matrix:TArray;hand:boolean);
{процедура заполнения матрицы
 если hand = TRUE - вручную
             FALSE - случайные значения   }
 var
  
  i,j:integer;
 
 function RandomInt(X1,X2:integer):integer;
 {Функция возвращает случайное целое
 значение из диапазона X1..X2                 }
  var
   x:integer;
  begin
   repeat
    x:=random(Abs(X2));
    if odd(random(2))
    then x:=-x;
   until (x>=X1)and(x<=x2);
   RandomInt:=x;
 end;
 
begin
 if hand then begin
               for i:=1 to N do
               for j:=1 to M do begin
                                 write('[',i,',',j,']: ');
                                 readln(matrix[i,j]);
                                end
              end else begin
                        for i:=1 to N do
                        for j:=1 to M do matrix[i,j]:=RandomInt(-100,100);
                       end;
end;
 
procedure OutMatrix(head:string;const Matrix:Tarray);
 { процедура вывода матрицы на экран }
 var
 
  i,j:integer;
  
begin
 Writeln(head);
 for i:=1 to N do begin
 for j:=1 to M do write(Matrix[i,j]:5,' ');
                  writeln();
                  end;
end; 
 
BEGIN
 
{fill & print matrix}
 randomize;
 FillMatrix(Matrix,FALSE); {TRUE - если вручную}
 OutMatrix('Сформирована матрица: ',Matrix);
 
{ process. & print matrix }
 for j:=1 to M do
 for i:=1 to N do 
 if Matrix[i,j]=0 then Matrix[i,j]:=Matrix[1,j];                
 OutMatrix('После модификации: ',Matrix);
END.