Untitled

procedure DataWrite(var aFile : TextFile; const aFlag : boolean; const aNum, aM, aN: integer; const aX : mat);
var i, j : integer;
begin
    AssignFile(aFile, ParamStr(2));
    ReWrite(aFile);

    WriteLn(aFile, 'X[', aN, ',', aM, '] = ');

    for i := 1 to aN do
    begin
        for j := 1 to aM do
            Write(aFile, aX[i, j]:7:3, ' ');
        WriteLn(aFile);
    end;

    if (aFlag = true) then
        WriteLn('номер строки', aNum - 1)
    else
        WriteLn('все суммы больше');

    CloseFile(aFile);
end;