Обработка массива переменной длины

var
  a     : array [1..100,1..100] of longint;
  b     : array [1..100] of longint;
  c     : array [1..100] of real;
  i,j,n : longint;

  Procedure vvod (n : longint);
  begin
    for i:=1 to n do
    for j:=1 to n do read(a[i,j]);
  end;

    Procedure poisk (n : longint);
    begin
      for i:=1 to n do
      begin
        for j:=1 to n do
        if a[i,j]>0 then a[i,j]:=1
                    else a[i,j]:=0;
      end;
    end;

      Procedure podschet (n : longint);
      begin
        for i:=1 to n do
        begin
          for j:=1 to n do
          b:=b+a[j,i];
          c:=b/n;
        end;
      end;

        Procedure vivod (n : longint);
        begin
          for i:=1 to n do
          writeln(c:0:1);
        end;
BEGIN
  read(n);
  vvod(n);
  poisk(n);
  podschet(n);
  vivod(n);
END.