Сложить элементы массива с произведением элементов столбца, который содержит минимальный элемент

program z;
var i,j,min,p,n,m,l:integer;
a:array [1..100,1..100] of integer;
begin
     p:=1;
     write('Êîë-âî ñòðîê: ');
     readln(n);
     write('Êîë-âî ñòîëáöîâ: ');
     readln(m);
     writeln('Ââîä ýëåìåíòîâ ìàòðèöû');
     for i:=1 to n do
         for j:=1 to m do
             begin
                  write('a[',i,',',j,']=');
                  readln(a[i,j]);
             end;
     writeln('Èñõîäíàÿ ìàòðèöà');
     for i:=1 to n do
         begin
              for j:=1 to m do
                  write(a[i,j],' ');
              writeln;
         end;
     min:=a[1,1]; l:=1;
     for i:=1 to n do
         for j:=1 to m do
             if a[i,j]<min
                then
                    begin
                         min:=a[i,j];
                         l:=j;
                    end;
     writeln('Íîìåð ñòðîêè ñ ìèíèìàëüíûì (',min,') ýëåìåíòîì - ',l);
     for i:=1 to n do
         p:=p*a[i,l];
     writeln('Ïðîèçâåäåíèå ýëåìåíòîâ ',l,' ñòðîêè - ',p);
     for i:=1 to n do
         for j:=1 to m do
             a[i,j]:=a[i,j]+p;
     writeln('Ðåçóëüòàò');
     for i:=1 to n do
         begin
              for j:=1 to m do
                  write(a[i,j],' ');
              writeln;
         end;
end.