function isFileExists(FileName: String): Boolean;
var
   TestNumber: Integer;
   TestFile: TextFile;
begin
   try
      AssignFile(TestFile, FileName);
      if (FileExists(FileName)) then
         while not EoF(TestFile) do
         begin
            Read(TestFile, TestNumber);
            IsFileExists := true
         end
      else
      begin
         Writeln('Указанный файл не найден');
         IsFileExists := false;
      end;
   except
      Writeln('Ощибка. Указанный файл содержит буквенные символы');
      IsFileExists := false;
   end;
end;