Матрица вводится с текстового файла, найти произведение отрицательных элементов столбцов

type matrix=array[1..15,1..15] of integer;
   tarray=array[1..15] of integer;
   procedure inp_from_file(var matr:matrix; var n,m:integer);
   var i,j:integer; file1:text;
begin
  assign(file1,'input.txt');
  reset(file1);
  readln(file1,n,m);
  for i := 1 to n do
    begin
      for j := 1 to m do
        readln(file1,matr[i,j]);
        readln(file1);
    end;
    close(file1);
end;
procedure pr(var outp:tarray; var matr:matrix; var n,m:integer);
var i,j:integer; proz:integer;
begin
  proz:=1;
  begin
  for i := 1 to n do
    if matr[i,j]<0 then
    begin
      proz:=proz*matr[i,j];
    outp[j]:=proz;
    end;
  end;
end;
  procedure out_to_file(var outp:tarray; var n,m:integer);
  var i,j:integer; file2:text;
  begin
  assign(file2,'output.txt');
  rewrite(file2);
  for j := 1 to m do
  write(file2, outp[j],' ');
  close(file2);
  end;
    var outp:tarray; matr:matrix; n,m:integer;
    begin
    inp_from_file(matr,n,m);
    pr(outp,matr,n,m);
    out_to_file(outp,n,m);
end.