Найти сумму и произведение элементов k-го столбца матрицы

uses crt;
var Matrix:array[1..4,1..10] of integer;
    i,j,k,Sum,Pr:integer;
begin
  clrscr;
  for i:=1 to 4 do
    for j:=1 to 10 do
      Matrix[i,j]:=random(20);
  writeln('Введите номер столбца');
  readln(k);
  for i:=1 to 4 do
    begin
      for j:=1 to 10 do
        write(Matrix[i,j]:4);
      writeln;
    end;
  Sum:=0; Pr:=1;
  for i:=1 to 4 do
    begin
      Sum:=Sum+Matrix[i,k];
      Pr:=Pr*Matrix[i,k];
    end;
  writeln('Сумма столбца №',k,' равна ',Sum);
  writeln('Произведение этого столбца равно ',Pr);
  readln;
end.

uses crt;
var Matrix:array[1..5,1..9] of integer;
    i,j,Sum:integer;
begin
  clrscr;
  for i:=1 to 5 do
    for j:=1 to 9 do
      Matrix[i,j]:=random(20);
  for i:=1 to 5 do
    begin
      for j:=1 to 9 do
        write(Matrix[i,j]:4);
      writeln;
    end;
  Sum:=0;
  for i:=1 to 5 do
    for j:=1 to 9 do
      begin
        if j mod 2 <> 0 then
          Sum:=Sum+Matrix[i,j];
      end;
  writeln('Сумма нечетных столбцов равна ',Sum);
  readln;
end.

uses crt;
var Matrix:array[1..5,1..10] of integer;
    i,j,min:integer;
begin
  clrscr;
  for i:=1 to 5 do
    for j:=1 to 10 do
      Matrix[i,j]:=random(20);
  for i:=1 to 5 do
    begin
      for j:=1 to 10 do
        write(Matrix[i,j]:4);
      writeln;
    end;
  for i:=1 to 5 do
    begin
      min:=maxint;
      for j:=1 to 10 do
        if min>Matrix[i,j] then
          min:=Matrix[i,j];
      writeln('Минимальный элемент строки №',i,' равен ',min);
    end;
  readln;
end.