procedure DataRead(var aFile : TextFile; var aM, aN : integer; var aX : mat);
var i, j : integer;
begin
    AssignFile(aFile, ParamStr(1));
    ReSet(aFile);

    ReadLn(aFile, aN);
    ReadLn(aFile, aM);

    for i := 1 to aN do
        for j := 1 to aM do
            Read(aFile, aX[i, j]);

    CloseFile(aFile);
end;