Работа с матрицей на Pascal

type
  matr = array [1..10,1..10] of integer;
  mas = array [1..10] of integer;

var
  a:matr;
  min,i,j,n,m:integer;
  b:mas;

procedure input (var a:matr; m,n:Integer);
var
  i,j:integer;
begin
  for i:=1 to n do
    begin
      for j:=1 to m do
        readln(a[i,j]);
    end;
end;

procedure output (var a:matr; var b:mas; min,n,m:integer);
var
  i,j:integer;
begin
  for i:=1 to n do
    begin
      writeln;
      for j:=1 to m do
        write (a[i,j]:5);
      writeln (b:10);
    end;
end;

procedure resh (var a:matr; n:integer;var b:mas);
var
  i,j:integer;
begin
  for i:=1 to n do
    begin
      for j:=1 to m do      {Вот тут основная ошибка - цикл был только по строкам, а надо и по столбцам}
        if a[i,j]<0 then
          begin
            b:=j;
            break;
          end;
    end;
end;

begin
  Write('Введите Н:');
  read (n);
  Write('Введите М: ');
  read (m);
  Write('Введите матрицу (построчно, слева направо): ');
  writeln;
  input(a,n,m);
  resh(a,n,b);
  output (a,b,min,n,m);
  readln;
end.

Введите Н:3
Введите М: 3
Введите матрицу (построчно, слева направо):
1
-2
3
-2
3
-1
3
4
-4

    1   -2    3         2

   -2    3   -1         1

    3    4   -4         3