Не работает процедура из пользовательского модуля

program test;
uses
  RxxyMath;
var
  data: text;
  m: arr;
  num, i, j: integer;
begin
  assign(data, 'inp.dat');  
  reading(data, num, m);  
  for i := 1 to num do
    for j := 1 to coln do
      writeln(m[j, i]);
  readln;
end.

unit RxxyMath;
//------------------------------------------------------------------------------
interface
//------------------------------------------------------------------------------
const
  diap = 2;
  err = 0.0005;
  arrsize = 2000;
  coln = 2; //количество столбцов
type
  arr = array [1..coln, 1..arrsize] of real;
procedure reading(var dat: text; n: integer; ar: arr);// чтение данных из файла
//------------------------------------------------------------------------------
implementation
//------------------------------------------------------------------------------
procedure reading(var dat: text; n: integer; ar: arr);// чтение данных из файла
var i: integer;
begin
  reset(dat);
  n := 0;  
  repeat
    inc(n);
    for i:= 1 to coln do
      read(dat, ar[i, n]);   
  until eof(dat);  
  close(dat);
end;
//------------------------------------------------------------------------------
end.