Program Project9;

{$APPTYPE CONSOLE}

uses
   SysUtils;
function SizeOfMatrix(MyFile: string) : integer;
var
   numb, s: char;
begin
   s := ' ';
   while not eoln (MyFile) do
   begin
      numb:= numb + s;
      Readln (MyFile, numb);
   end;

end;

function FileAccess ();
var
   MyFile: TextFile;
 begin
   AssignFile(MyFile, 'C:\Users\KaMo.by Admin\Desktop\Myfile.txt');
   Reset(MyFile);
   CloseFile(MyFile);
 end;

procedure ReadFileName (var MyFile: TextFile);
var
   FName: string;
   IsValidInput: boolean;
begin
   IsValidInput := False;
   repeat
      Writeln ('Enter a file name for data entry in the format Name.txt');
      Readln(FName);
      if FileExists (FName) then
      begin
         AssignFile(MyFile, FName);
         Reset(MyFile);
         if EoF(MyFile) then
            Writeln('File is empty.');
         else
            IsValidInput := True;
      end;
      else
         Writeln('Input Error. This file is empty.');
   until IsValidInput;
end;