var
    Matrixx: MatrixType;
    Size, i: Integer;
    FileName: string;
    Avrg: Real;
    MyTFile: TextFile;
    CorrectMatr: Boolean;
    Mass: TArr;

begin
   repeat
      ReadFileName(FileName);
      CorrectMatr := IsTheMatrixCorrect(FileName);
      if CorrectMatr := True then
      begin
         ReadMatrix(Matrixx,FileName, Size);
         Size := SizeOfMatrix(MyTFile);
         MatrixOutput(Matrixx, Size);
         SetLength(Mass, Size);
         Avrg := Average(Matrixx, Size);
         AverageOutput(Mass, FileName, Size);
         WriteToFile(Mass, FileName, Size);
      end
      else
         CorrectMatr := False;
         writeln('The name of the matrix inputs incorrect. Try again. Example: Name.txt');
   until CorrectMatr;

end.