Паскаль 2курс Матрица

[TRICOLOR]

Помогите с програмой, препод сказал нучно укоротить и что б матрица была 3х3.
Задание:Есть матрица А(N,N), А<=10. Найти произвидение минимальных элементов каждого столбца матрици.

program Matrica;
type
tm:array[1..3,1..3] of integer;
var
d,min1,min2,min3:real;
i,j:integer;
m:tm;
begin
 writeln('vv matricu 3x3:');
 for i:=1 to 3 do
 begin
 for j:=1 to 3 do
 readln (m[i,j]);
 end;
   for i:=1 to 3 do
   begin
     for j:=1 to 3 do
     min1:=m[i,j];
     if m[i,j] < min1 then min1:=m[i,j];
   end;
    for i:=1 to 3 do
    begin
     for j:=2 to 2 do
     min2:=m[i,j]
     if m[i,j] < min2 then min2:=m[i,j];
    end;
      for i:=1 to 3 do
       begin 
        for j:=3 to 3 do
        min3:=m[i,j];
        if m[i,j] < min3 then min3:=m[i,j];
       end;
writeln ('minimalnuy dobytok matricu' , d:7:2];
readln;
end.