CorrectMatr := IsTheMatrixCorrect(FileName);
    begin
       if CorrectMatr := True then
       begin
          writeln('The name of matrix is correct');
       end
       else
          CorrectMatr := False;
          writeln('The name of the matrix inputs incorrect. Try again. Example: Name.txt');
    end;